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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
3 COPY LOG7A10 *xx MAP EC HISTORY ** 002500 2F18 198 DC A (ENTPT) POINT TO MAP ENTRY POINT TABLE 
(Pte SS SSCS SCS SSS SS LSSSCC SSS SSSS SSCS SPSS SSCS SC CSS CS SCSCCCOCSL CSS TSS SS CSS St 2 oS 199 ea RR I RRR III IIR IO III IO I fo I i kk tek ak cake ak 
5 * *x 200 282A II III IO RICK ICI IC IC OR IOI IC OK I kak aa i kk a kak ae teak ak 
6 * KK PREREQUISITES CK * 201 *« OK 
7 * * 202 ** THE FOLLOWING TABLES ARE USED BY THE MDI SUPERVISOR eee * * 
8 * NONE * 203 ** TO LOCATE THE CORRECT RULE TO INVOKE, TO OBTAIN THE PROPER * 
9 x *x 204 ¥**% PARAMETERS TO PASS TO THE TU'S AND TO PASS TO THE OPERATOR * 
OME TST SSeS SPSS SSS PTS STS SF SS SSS SS SSS SSS SS SSS SSCS SSS SSS CSS CSCS oe SSS SSS SL SL Cs 2 205 ** THE INDICATED MESSAGE (S) - THERE ARE FOUR TABLES USED FOR THIS * * 
11 * * 206 ** PURPOSE THEY ARE: ek 
12 * KX MODIFICATIONS kK * 207 ** Ok 
13 * * 208 ** STEP AND RULE ADDRESS TABLE * * 
14 * CHANGES MADE TO CORRECT ERRORS FOUND WHILE IN TEST * 209 ** THIS TABLE GIVES THE ADDPESS OF THE RULE TO INVOKE AND * 
15 * * 210 ** THE ASSOCIATED STEP DECIMAL STEP NUMBER OF THAT RULE. * & 
16 4K IO I IIo I IO GIG I ok ak ok i dak kk kak ak ak ak 211 ** ENTRIES ARE AS FOLLOWES * 
17 * * 212 ** A AN ADDRESS OF THE RULE DC START AREA * * 
18 * KK REA'S INCORPORATED aK * 213 ** B THE STEP NUMBER IN DECIMAL ** 
19 * *x 214 ** Cc AN EQUATE FOR THE STEP NUMBER ** 
20 * 27-12159 27-12168 * 215 ** ** 
21 * x 216 ** RULE INFORMATION TABLE * 
22 AK HK IK RK IIR ICO IG IC I tak a tak ak i lak ok ak ic ak ak ak 217 ** THIS TABLE CONTAINES THE REQUIRED INFORMATION TO EXECUTE ** 
23 * * 218 ** THE APPROPRIATE RULE UNDER MDI. EACH RULE HAS ITS OWN ** 
24 * KK SPECIAL INSTRUCTIONS tk * 219 ** UNIQUELY DEFINED AREA INDICATED BELOW. END OF TABLE IS * 
25 * * 220 ** INDICATED WITH A X'OOOOt FOR THE RULE EQUATE. x 
26 * NONE * 221 ** * 
27 x * 222 ** SQUES * 
28 Ro RC IK AO AO OK aki roti toto tok ito a koto ak ok ok 223 ** A) RULE EQUATE X*'0100! *k 
29 x * 224 ** B) ADDRESS OF THE YES LEG RULE *% 
30 * eK 3k EF. C. HISTORY KK * 225 ** ok 
31 * * 226 ** SFIXT 2 
32 * DATE 17AUG78 DATE O020CT78 DATE 10JAN79 DATE * 227 ** A) RULE EQUATE X‘'0101' * 
33 . E.C. 755391 E.C. 375102 E.C. 375222 E«C. . S56 ce B) ADDRESS OF MESSAGE TO PRINT - 
CLE TE LCELESSSSSS SSS SS SCCSC CSSSS SSCSSCSCCCCS CLE SS CCS CCSSCCCSCSCCSCe COS S CS 2 2. 2 2 5 2 3 230 ** $STOP x 
002500 37 I7A10 START pe START PDDReS OF ALL 'I' TYPE PROG 231 ** A} RULE EQUATE X*'0102! % 
000100 38 @QUES EQU "01008 EQUATED UE FOR MDI STATEMENT 232 ** B) ADDRESS OF MESSAGE OK 
000101 39 @OFIXT EQU x101018 EQUATED VALUE FOR MDI STATEMENT 233 ** *x 
000102 40 @STOP EQU x'0102" EQUATED VALUE FOR MDI STATEMENT 234 ** S$GOTO x x 
000200 41 @GOTO EQU X*0200! EQUATED VALUE FOR MDI STATEMENT 235 ** A) RULE EQUATE X'0200! * 
000201 42 @CALL EQU X'*O201' EQUATED VALUE FOR MDI STATEMENT 236 ** B) ADDRESS OF MESSAGE 2 
000300 43 OINPT U X'Q300! EQUATED VALUE FOR MDI STATEMENT 237 ** C) NAME OF MAP TO GO TO * 
000400 G4 @QUXX EQU X'O4008 EQUATED VALUE FOR MDI STATEMENT 238 ** D) ENTRY POINT WITHIN GO TO MAP TO USE * 
000500 45 @TUXX EQU X¥*0500'° EQUATED VALUE FOR MDI STATEMENT 239 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE ** 
000600 46 @NVLD EQU X'0600! EQUATED VALUE FOR MDI STATEMENT 241 ** * 
000000 - 47 EQ EQU <X*0000! EQUATE FOR E 242 ** SCALL ** 
000004 48 NE EQU X'OOOK8 EQUATE FOR NOT EQUAL oni * A) RULE EQUATE X*0201! 
000008 49 HI EQU X*'*OQ0008! EQUATE FOR HIGH Gy ** B) ADDRESS OF MESSAGE * x 
00000C 50 NH EQU x'OQ00C! EQUATE FOR NOT HIGH 245 ** C) NAME OF MAP TO CALL * 
000010 51 LO EQU X'00105 EQUATE FOR LOW 246 ** D) ENTRY POINT WITHIN CALLED MAP TO USE * x 
000014 52 NL EQU X'OOT4! EQUATE FOR NOT LOW 247 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE * x 
000010 53 LT EQU X*0010! EQUATE FOR LESS THAN 248 ** * x 
00000C 54 LE EQU X'OQOOC! poate FOR LESS THAN OR EQUAL TO 249 ** SINPT Kk 
000008 55 GT EQU X*0008! EQUATE FOR GREATER THAN 250 ** A) RULE EQUATE X*'0300! Ok 
000014 56 GE EQUs xX'OO1T&! EQUATE FOR GREATER THAN OR EQUAL TO 251 ** B) INPUT TYPE a aes OR HEX) OK 
000200 57 ON EQU' xX*'0200! EQUATE FOR ON 252 ** C) ADDRESS OF ULE OK 
000202 58 OF EQU.. xX'0202! EQUATE FOR OFF 253 ** D) DESTINATION LOCATLON OF INPUT DATA * x 
000204 59 MX EQU X*O2048 EQUATE FOR MIXED 254 ** E) LENGTH OF INPUT DATA * x 
000000 60 EBC EQU X'OOOO? EQUATE FOR EBCDIC DATA TRANSFER 255 ** F) LOWER LIMIT OF GOOD DATA * x 
000001 61 HEX EQU X'*OOO1' EQUATE FOR HEX DATA TRANSFER 256 ** G) HIGHER LIMIT OF GOOD DATA eK 
000001 62 XTRNL EQU X'OOO1' EQUATE FOR EXTERNAL REFERENCE 257 ** * 
000000 63 INTRNL EQU x'O0008 EQUATE FOR INTERNAL REFERENCE 258 ** $QUXX ** 
000000 64 PARM eeu X*'O0000! EQUATE INDICATING PARAMETER 259 ** A) RULE EQUATE X'O4OO! * 
000001 65 DA EQU X'OOO1' EQUATE FOR DEVICE ADDRESS 260 ** B) ADDRESS OF YES LEG RULE * 
000002 66 UA EQU X'0002! EQUATE FOR UNIT ADDRESS 261 ** C) TU BRANCH TO ADDRESS SEC ONDA * 
000000 67 DUMMY EQU X*0000! DUMMY EQUATE 262 ** D) TU BRANCH TO ADDRESS SECONDARY) aK 3c 
001800 69 PID EQU *-X'QDOO! ADDRESS OF MDI HEADER 263 ** E) LENGTH OF PARAMETER I 2k 
000232 70 PTYPE EQU *—-X"'22CE* ADDRESS OF PROCESSOR TYPE FIELD 264 ** F) PARAMETER TO PASS TO TU. * 
00180C 71 STEPNUM EQU PID+xX'tQOOC! ADDRESS OF DECIMAL STEP NUMBER 265 ** G) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER * & 
OO0180E 72 OPWD1 EQU PID+X'OQOOE* ADDRESS OF OPTION WORD ONE 266 ** OK 
001810 73 OPWD2 ae PID+X!0010! ADDRESS OF OPTION WORD TWO 267 ** STUXX 2k 
001818 74 TUSTATUS EQU PID+xX'QO18! ADDRESS OF TU STATUS WORD 268 ** A) RULE EQUATE X'0500! OK 
OO181A 75 TUWORK EQU PID+X'OO1A' ADDRESS OF TU WORK AREA 269 ** B) ADDRESS OF YES LEG RULE Ok 
00189A 76 TUPARM1 EQU PID+X*OO9A' ADDRESS OF PARM 1 POINTER 270 ** C) TU BRANCH TO ADDRESS OK 
00189C 77 TUPARM2 EQU PID+X*'OO09C' ADDRESS OF PARM 2 POINTER 271 ** D) TYPE OF COMPARE TO MAKE ON RESULTS * 
00189E 78 TUPARM3 EQU PID+xX*' OO9E* ADDRESS OF PARM 3 POINTER 272 ** E) LENGTH OF COMPARED RESULTS aK 
0018A0 79 TUPARM4Y EQU PID+X*OOAO! ADDRESS OF PARM 4 POINTER 273 ** F) MASK FIELD FOR COMPARE * 
0018A2 80 TUPARM5S EQU PID+X*QOOA2' ADDRESS OF PARM 5 POINTER 274 ** G) LENGTH OF PARAMETER IN BYTES Ok 
0018A4 81 TUPARM6 EQU PID+X*OOA4! ADDRESS OF PARM 6 POINTER 275 ** H) PARAMETER TO PASS TO THE TU Ok 
0018A6 82 TUPARM7 EQU PID+X*'QOA6! ADDRESS OF PARM 7 POINTER 276 ** I) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER * * 
0018A8 83 TUPARM8 EQU PID+X'OOA8! ADDRESS OF PARM 8 POINTER 27] ** * 
OO18AA 84 TUPARMS EQU PID+X*'OOAA* ADDRESS OF PARM 9 POINTER 278 ** SNVLD *& 
0018AC 85 TUPARM10 EQU PID+X'OOAC' ADDRESS OF PARM 10 POINTER 279 ** A) RULE EQUATE X*06005 * * 
OO18AE 86 TUPARM11 EQU PID+X'QOAE'* ADDRESS OF PARM 11 POINTER 281 ** *K 
0018B0 87 TUPARM12 EQU PID+X'QOBO! ADDRESS OF PARM 12 POINTER 282 ** ENTRY POINT TABLE ok 
0018B2 88 TUPARM13 EQU PID+X'OOB2' ADDRESS OF PARM 13 POINTER 283 ** THIS TABLE CONTAINS THE ENTRY POINTS WITHIN THE MAP THAT * 
0018B4 89 TUPARM14 EQU PID+X*'OORY4! ADDRESS OF PARM 14 POINTER 284 ** THE MAP CAN BE ENTERED FROM THESE ENTRY POINTS ARE OK 
0018B6 90 TUPARM15 EQU PID+X'OOB6! ADDRESS OF PARM 15 POINTER 285 ** REFERENCED BY NAME AND ADDRESS. ENTRIES ARE AS FOLLOWES: x * 
0018B8 91 TUPARM16 EQU PID+X*'QOOB8! ADDRESS OF PARM 16 POINTER 286 ** OK 
OO18BA 92 TUMSGWTR EQU PID+X'"OOBA® ADDRESS OF -> TO COMMON MSG WRITER 287 ** 3} NAME OF ENTRY POINT Ok 
0O018BE 93 TUUA EQU PID+X'OOBF'! ADDRESS OF UNIT ADDRESS IN EBC 288 ** ADDRESS OF ENTRY POINT RULE TABLE * 
0018C0 94 TUDA EQU PID+X*OOCO! ADDPESS OF DEVICE ADDRESS IN EBC 289 ** ok 
0018C2 95 TUBUFF EQU PID+X*'00C2' ADDRESS OF LAST USED WORD IN MAP 290 ** THE ENTRY POINT TABLE END IS INDICATED BY A xX'0000! ** 
0018C4 96 TULAST EQU PID+X'OO0C4! ADDRESS OF LAST ADDRESSABLE WORD 291 ** ok 
0018C6 97 TURESULN EQU PID+X'QOC6! ADDRESS OF LENGTH OF TU RESULTS 292 ** MESSAGE TABLE * 
0018C8 98 TURESUL EQU PID+X'0O0C8* ADDRESS OF TU RESULTS FIELD 293 ** THIS TABLE CONTAINES THE MESSAGE PASSED TO THE OPERATOR ** 
O018FC 99 MAPNAME EQU PID+X'00FC' ADDRESS OF MAP NAME FIELD IN HEX 294 ** VIA THE MDI SUPERVISOR. THE TABLE IS AS FOLLOWES: tok 
001948 100 TUINPT EQU PID+X'0O148! ADDRESS OF $INPT DATA 295 ** * 
00196E 101 PARMARA EQU PID+X'QO16E' ADDRESS OF $INPT INPUT AREA 296 ** A) EQUATE FOR START OF MESSAGE BLOCK ** 
0019B8 102 @DCADD1 EQU PID+X'O1B8! MDI POINTER 297 ** B) NUMBER OF LINES OF MESSAGE ok 
0O019BA 103 @DCADD2 EQU PID+X' OBA‘ MDI POINTER 298 ** C) LENGTH OF FOLLOWING LINE *x 
0019CY4 104 SUPSTAT EQU PID+X'0O1C4! ADDRESS OF MDI STATUS 299 ** D) FIRST LINE OF MESSAGE * x 
0019D0 105 DEVADD EQU PID+X'0O1D0! ADDRESS OF DEVICE ADDRESS TABLE 0 300 ** E) LENGTH OF FOLLOWING LINE ** 
OO019DA 106 DEVADD1 EQU PID+X"'O1DA® ADDRESS OF DEVICE ADDRESS TABLE 1 301 ** F) SECOND LINE OF MESSAGE *K 
QO19E4 107 DEVADD2 EQU PID+X'OTEY! ADDRESS OF DEVICE ADDRESS TABLE 2 302 ** G TC. * * 
OO19EE 108 DEVADD3 EQU PID+X'OQ1EE! ADDRESS OF DEVICE ADDRESS TABLE 3 303 ** Ok 
0019F8 109 DEVADD4 EOU PID+X'O1F8! ADDRESS OF DEVICE ADDRESS TABLE 4 304 7 Rk tok IO III OK OK tok ok ak kk a ROR goK rR OR i takai i akakoak kok ak tok 
001A02 110 DEVADDS5 EOU PID+xX'0202! ADDRESS OF DEVICE ADDRESS TABLE 5 305 ek ROR ORK RIOR I IORI ROR FOR OK IORI OR ROK RRR KOK gO RR RIOR OR IOI Kk tO 
0O1A0C 111 DEVADD6 9 EQU PID+X*O20C* ADDRESS IF DEVICE ADDRESS TABLE 6 
001A16 ee DEVADD?7 E Ue oe ee ADDRESS OF DEVICE ADDRESS TABLE 7 
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I7A10 --- COMMON ADAPTER MAP P/N=8327650 EC=375222 PAGE 08 I7A10 --- COMMON ADAPTER MAP P/N=8327650 EC=375222 PAGE O8A 


LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
1679+* 000004 1798 BS4 EQU 4 
003038 1680+CSBUF EQU- * CYCLE STEAL DATA BUFFER 000005 1799 BSS EOU 5 
003038 0000 1681+CSTL1 DC A (*-* CS STATUS WD 0, RESIDUAL ADDRESS 000006 1800 BS6 EQU 6 
00303A 0000 1682+CSTL2 DC A (*-* CS STATUS WD 1, RESIDUAL COUNT 000007 1801 BS7 EQU 7 
00303C 0000 1683+CSTL3 DC A (*-* CS STATUS WD 2, RETRY CNT WD 1 000008 1802 BS8 EQU 8 
00303E 0000 1684+CSTLY DC A (*-* CS STATUS WD 3, RETRY CNT WD 2 000009 1803 BS9 EQU 9 
003040 0000 1685+CSTLS5 DC A (*- * CS STATUS WD 4, ERROR STATUS WD 1 OOOOOA 1804 BS10 EQU 10 
003042 0000 1686+CSTL6 DC A (*-* CS STATUS WD 5, ERROR STATUS WD 2 00000B 1805 BS11 EQU 11 
003044 0000 1687+CSTL7 DC A (*-* CS STATUS WD 6, LAST DCB ADDRESS 00000C 1806 BS12 EQU 12 
003046 0000 1688+CSTL8 DC A (*-* CS STATUS WD 7, PREVIOUS HD/CYL 00000D 1807 BS13 EQU 13 
003048 0000 1689+CSTLY DC A ( *-* CS STATUS WD 8, CURRENT HD/CYL O0000E 1808 BS14 EQU 14 
003044 0000 1690+CST10 DC A (*-* CS STATUS WD 9, FLAG/SECTOR 00000F 1809 BS15 EQOU 15 
00304C 0000 1691+CST11 DC A (*-* CS STATUS WD 16, HEAD/CYLINDER 1811 COPY T7AOODCB 260CT77 
aoaGea nous qegg coats Ms A ve CS STATUS WD 11, DIAG BYTES 1, 2, 1812 dig (T7AOODCB) 
1694+* : CS STATUS WD 12, AND 3 + WRAP BYTE ‘oan FE OR OR ICICI I CI ICI I AC IRC RIOR ACO II AIO FO I OI ACH 2 B77 EE EK 
003052 0000 1695+$SUBN DC A (*-* LAST SUBROUTINE ADDRESS USED 1815 * 
$53985 $Bsfoooc regncgeeh ge 2eUgS3h, THOME Hts, seprzsam_ aI etheaseesdonata 
00305A 0000 1698+TURTN DC A (*-*) tesa nara PETuRW abu GG. Me Le SOOO ORR i ai ii dk tok kkk tk $k 
00305c 00 1699+$DVID DC X'OO! DEVICE ID 1819 * 
00305E 19D0 1700+SVCAL DC a yeey eee) ADRS OF DEVICE ADDRESS 1820 ***** DIAGNOSTIC DCB ******4** 
003060 0000 1701+ DC A (*-*) IBIS CYLINDER ADDRESS 1821 * 
1702+* 00306A 2008 1822 DGDCB DC x*20088 DIAGNOSTIC DCB 
1703+* THIS TEST UNIT WILL RETURN TO MDI WITHOUT DOING ANY PROGRAM 00306C 0000 1823 DC a aes PLAG / PHYSICAL SECTOR# 
1704+* FUNCTION. THE RESULTS THAT WERE SET UP IN THE RESULTS AREA ARE 00306E 0000 1824 DC A (*-* HEAD / CYLINDER#!'S 
1705s % STILL VALID BUT A DIFFERENT TEST IS TO BE PERFORMED. 903070 9000 322 ve x URSBE) Pen heclaer 
003062 4020 3018 7A02 1707+T7A02 MVWI X*7A02',$TUID SET UP TEST UNIT ID § 03078 0000 1827 DC A Gee CHAINING ADDRESS 
003068 5700 : 1708+ BXS kl RETURN TO MDI SUPVR 003076 0100 1828 DC X*01008 BYTE COUNT 
1710 COPY OMEQU 003078 0000 1829 DC A (*-*) DATA ADDRESS 
1711 FIO ICI ICRC CGC OIC IO IO RGR IOC CI IORI SI IG OK IK kkk kak ak 1830 * 
1342 Hi sagae * 183) aeeet RECALIBRATE DCB *** ***#x 
QUATED NAMES FOR SUPPORTED SVC'S * 1 
1714 * * 00307A 0001 1833 CLDCB DC X*0001' RECALIBRATE DCB 
000000 ae OO EEE EERE IEE HEEE ETE ETA TITLE TEE EAT AAA II 00307C 00000000000000000 1834 DC TA (¥*-*) 
QUT EQU OUT SVC 1835 * 
000001 1717 OUTIN EQU 1 OUTIN SVC 1836 ***k* WRITE SECTOR ID ¥*# 484 4x 
000003 1719 TDLES FOU 3 IDLE sve 1836 a "002D! WRITE SECTOR ID CNTL WORD 
IDLE SVC - INDEPENDENT OF CPU TYPE 0 1838 WSDCB DC X 
000004 1720 CHNGE EQU mM CHANGE LEVEL SVC BOs Dee Hea 1839 ‘DC a eae FLAG / PHYSICAL SECTOR# 
000005 1721 PGMCK EQU 5 ALLOW RETURN ON PROGRAM CHECK SVC 00308E 0000 1840 DC A (*-* HEAD / CYLINDER#'S 
000006 1722 EXIT EQU 6 EXIT SVC 003090 0000 1841 DC x'oooo! NOT USED 
000007 1723 TERM EQU 7 TERMINATE SVC 003092 3144 1842 DC A (RSBA) RSB ADDRESS 
000008 1724 RESET EQU 8 RESET DEVICE SVC 003094 0000 1843 DC A (*-* CHAIN ADDRESS 
000009 1725 RID  &EQU 9 READ ID SVC 003096 0004 1844 DC X*O0048 BYTE COUNT 
OOOOOA 1726 START EQU 10 START CYCLE STEAL SVC 003098 3138 1845 DC A (WRSID) ADDR OF SECTOR ID DATA 
00000B 1727 STCSS EOU 11 START CYCLE STEAL STATUS SVC 1846 * 
aOb oon ee ae EOu 12 PREPARE DEVICE SVC et gai READ SECTOR ID DCB ¥****#** 
READ WITH FUNCTION BIT 3 OFF SVC 
OOO00E 1730 READ1 EQU 14 READ WITH FUNCTION BIT 3 ON SVC 00309A 201C 1849 RSDCB DC X'201C! READ SECTOR ID CNTL WORD 
OO000F 1731 RSTAT EQU 15 READ STATUS SVC 00309C 0000 1850 DC A (*-* FLAG / PHYSICAL SECTOR# 
000010 1732 WRITO EOU 16 WRITE WITH FUNCTION BIT 3 OFF SVC 00309E 0000 1851 DC X*0000! HEAD / CYLINDER#'S 
000011 1733 WRIT1 EQU 17 WRITE WITH FUNCTION BIT 3 ON SVC 0030A0 0000 1852 DC X*0000! NOT USED 
000012 1734 CTRL EOQU 18 CONTROL SVC 0030A2 3144 1853 DC Fee RSB ADDRESS 
000013 1735 RICB EQU 19 RELEASE INTERUPT CONTROL BLOCK SVC 0030A4 0000 1854 DC A (*-* CHAIN ADDRESS 
000014 1736 CICB EQU 20 CONNECT INTERUPT CONTROL BLOCK SVC 0030A6 0004 1855 DC X*O004' BYTE COUNT FOR READ SECTOR ID 
000015 1737 HIO  EQU 21 HALT ALL 1/0 0030A8 3020 1856 DC A (SCTID) SECTOR ID DATA ADDRESS 
000016 1738 REQSD EQU 22 REQUEST USE OF DCP DISK Svc 1857 * 
900017 1739 RELSD EQU = 23 RELEASE USE OF DCP DISK Svc 1858 ***** SEEK DCB  *#4 KK 
000018 1740 HALT EQU 24 HALT SVC 1859 * 
000019 1741 ETOH EQU 25 EBCDIC TO HEX SVC (STRING 0O30AA 0000 1860 SKDCB DC X'Q000! SEEK DCB CONTROL WORD 
OO001A 1742 HTOE EQU- 26 HEX TO EBCDIC SVC (Stet ic 0030AC 0000 1861 DC X*0000! NOT USED 
00001B 1743 ATOH EQU 27 ASCIZ TO HEX SVC (STRING OO30AE 0000 1862 DC A (*-* HEAD / CYLINDER#'S 
00001C 1744 HTOA EQU 28 HEX TO ASCII Svc (staruc} 0030B0 0000 1863 DC X*0000! NOT USED 
00001D 1745 ETOA EQU 29 EBCDIC TO ASCII SVC (STRING 0030B2 3144 1864 DC A (RSBA) RSB ADDRESS 
00001EF 1746 ATOR EQU 30 ASCIY TO EBCDIC SVC (STRING 0030B4 0000 1865 DC A (*-* CHAIN ADDRESS 
O0001F 1747 READI EQU 31 READ DATA SETS FOR MDI/UTIL 0030B6 0000 1866 DC X*O000! NOT USED 
000020 1748 WRITI EQU 32 WRITE DATA SETS FOR UTIL 0030B8 0000 1867 DC X'00008 NOT USED 
1750 2% 2 KK FIR IC ICC CIC CIIC ICICI ICICI IOI II III IO ER I a IK ak ak kak feat afc 1868 * 
1752 * U * 186 reste CYCLE STEAL STATUS DCB ¥*****#4% 
EQUATES USED BY TU'S AS CONSTANTS * 
1753 * * 0030BA 2000 1871 CSDCB DC X'2000! CONTROL WORD 
1754 FARA GE CCCI ICICI III ISIC OIG GIO I IG oi sok ak 0030BC 0000 1872 DC For NOT USED 
OO004E 1755 PLUS EQU- Ct+¢!# PLUS CHAR 0030BE 0000 1873 DC F'or NOT USED 
000060 1756 MINUS FOU Ct-# MINUS CHAR 0030C0 0000 1874 DC F'or NOT USED 
000000 1758 ZERO EQU 0 0030C2 0000 1875 DC F'or NOT USED 
000001 1759 ONE EQU 1 0030C4 0000 1876 DC F'O! NOT USED 
000002 1760 TWO  EQU- 2 0030C6 OO1A 1877 DC X'OO1A? 13 WORDS OF STATUS 
000003 1761 THREE EQU] 3 0030C8 3038 1878 DC A (CSBUF) ADDRESS OF CYCLE STEAL STATUS DATA 
000004 1762 FOUR FQU 4 1879 * 
000005 1763 FIVE EQU 5 1880 ***** WRITE DCB #3 
000006 1764 STIX EQU- 6 1881 * 
000007 1765 SEVEN EQU) 7 0030CA 0028 1882 WRDCB DC X'0028" WRITE DATA DCB CNTL WORD 
000008 1766 EIGHT EOQU 8 0030CC 0000 1883 Dc A (*-* FLAG / RECORD# 
000009 1767 NINE EQU 9 0030CE 0000 1884 DC A (*-* HEAD / CYLIDNER#'*S 
OOOOOA 1768 TEN EQU 10 0030D0 0000 1885 DC A (*-* SCAN / REPEAT COUNT 
00000B 1769 ELEVN EQU 11 11 0030D2 3144 1886 DC A (RSBA) RSB_ ADDRESS 
00000C 1770 TWELV EQU 12 12 0030D& 0000 1887 DC A (*-* CHAIN ADDRESS 
00000D 1771 THRTN EQU 13 13 0030D6 0100 1888 DC X¥*0100! BYTE COUNT 
OO000F 1772 FIVIN EQU 15 15 0030D8 0000 1889 DC A (*-*) WRITE DATA ADDRESS 
000010 1773 SIXTN EQU 16 16 1890 * 
000020 1774 THRY2 EQU 32 32 1891 ***** VERIFY DCB eK FO KOK 
900080 ine ONED8 FOU $28 $9 1893 y DCB DC X'0019! CONTROL WORD 
E 128 0030DA 0019 R 
000100 1777 TWO56 EQU 256 256 0030DC 0000 1894 DC A (*-* FLAG / RECORD# 
000400 1778 ONEK EQU seas 1024 0030DE 0000 1895 DC A (*-* HEAD / CYLINDER#'S 
000800 1779 TWOK EOQU 2048 2048 0030F0O 0000 1896 DC A (*-* SCAN / REPEAT COUNT 
000C00 1780 THREK EQU 3072 3072 O0O30F2 3144 1897 DC A (RSBA) RSB ADDRESS 
001000 1781 FOURK EQU 4096 4096 OO30E4 0000 1898 DC A (*-* CHAIN ADDRESS 
PPEFFE 1784 M2 «Bey =e =} ee amehtte 1800 DEP FOF NOt USED 
= a 0030E8 0000 DC 
FFFFFD 1785 M3 EQU  -3 -3 2 1901 * 
FFFFFC 1786 M4 EQU -4 -4 1902 ***** READ DCB 9 # oka 
1788 ¥*KRKKKX ACARI OR ICICI ICC IOI CII III ICI I II a ka Ik a Ia aC aK ak ake afc ake ak 1903 * 
1789 * * QO30EA 2018 1904 RDDCB DC X'2018! READ DCB CONTROL WORD 
1790 * THE FOLLOWING ARE EQUATES FOR BIT DISPLACEMENTS FROM THF * 0030EC 0000 1905 DC A (*-* FLAG / RECORD# 
1791 * BEGINNING OF THE BYTE TO EACH BIT IN THE WORD OF SWITCHES. * O030EE 0000 1906 DC A (*-* HEAD / CYLINDER#'S 
1792 * * 0030F0 0000 1907 DC A (*-* SCAN / REPEAT COUNT 
1793 FIO ZG IC ICRI SO CCI IOI IOI GIGI GIS RG Gok RII i i ak dak ake ak OO30F2 3144 1908 DC A (RSBA) RSB ADDRESS 
000000 1794 BSO EQU 0 OO30F4 0000 1909 DC A (*-* CHAIN ADDRESS 
000002 i18@ Bsa Eu pee eee. goon 1944 De OFS) READ DATA ADDRESS 
000 19 DC - 
000003 1797 BS3  EOU 3 vee : 1912 * ve 
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1913 cout WRITE SECTOR ID SKEWED OK iat . 10 BAL SRDVY,R6 READ VERIFY 
OO30FA 0O02F 1915 WKDCB DC X'O02F! CONTROL WORD 2030 * 11 BAL SWRT,R6 WRITE 
0030FC 0000 1916 DC A (*-* FLAG / PHYSICAL SECTOR# 2031 * 
OO030FE 0000 1917 DC A (*-* HEAD / CYLINDER#!S 2032 * 12 BAL SRDIM, RO READ MULTI SECTOR IDS 
003100 0000 1918 DC Ftoe NOT USED 2033 * 
003102 3144 1919 pc A (RSBA) RSB ADDRESS 2034 OO I IOI IOI IOI I ROI IR OI IOI III I II —ICIO a for I tok tek 
003104 0000 1920 DC AtRo# CHAIN ADDRESS 2035 * 
003106 0004 1921 DC x'ooodr BYTE COUNT 003174 4020 30AA 2036 $SEEK MVA SKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
003108 3138 1922 ? DC A (WRSID) ADDR OF SECTOR ID DATA 00317A 507F et é J XIO 
1924 **** RFAD SECTOR ID SKEWED CK 00317C 4020 307A 2039 $RECL MVA CLDCB, IODCB SET UP BLOCK FOR SVC CALL 
1925 * 003182 507B 2040 J XIO 
00310A 201D 1926 RKDCB DC X'201D! CONTROL WORD 2041 * 
00310C 0000 1927 DC A (*-* FLAG / PHYSICAL SECTOR# 003184 4020 309A 2042 $RDID MVA RSDCB, IODCB SET UP BLOCK FOR SVC CALL 
00310E 0000 1928 pc A (*-* HEAD / CYLINDER#!S 00318A OBBB 2043 MVBI X*'BBt,R3 SET BUFFER TO B'S 
003110 0000 1929 DC Fror NOT USED 00318C 4524 2044 MVA SCTID,R5 SETUP READ SECTOR ID BUFFER ADRS 
003112 3144 1930 DC A (RSBA) RSB ADDRESS 003190 4724 2045 MVWI 4,R7 SETUP BUFFER LENGTH 
003114 0000 1931 Dc A (*-* CHAIN ADDRESS 003194 2BAC 2046 FFN R3 4d, INIT READ SECTOR ID BUFFER 
003116 0004 1932 DC X'oo04e BYTE COUNT 003196 4020 3020 2047 MVA  SCTID,RSDCB+14 DATA ADDR 
003118 3020 er ‘ DC A (SCTID) SECTOR ID DATA ADDRESS 00319C 506E eoaG . J XIO 
1935 **** READ MULTIPLE SECTOR IDS OK CK 00319E 4020 311A 2050 SRDIM MVA RMDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
1936 * 0031A4 4724 2051 MVWI 132,R7 SET BUFFER LENGTH 
00311A 201C 1937 RMDCB DC X'*201C! CONTROL WORD 0031A8 4524 2052 MVA 1D06 -R5 SET BUFFER ADDRESS 
00311C 0000 1938 DC A (*-* FLAG / PHYSICAL SECTOR# 0031AC OBBB 2053 MVBI X*BB!,R3 SET CLEAR CHARACTERS 
00311E 0000 1939 DC Ax HEAD 7 CYLINDER#'S 00O31AE 2BAC 2054 FFN  R3, (R5) CLEAR THE SUFFER 
003120 0000 1940 DC Foe NOT USED 0031B0 5064 2055 J x16 
003122 3144 1941 DC A(RSBA) RSB ADDRESS 2056 * 
003124 0000 1942 DC A (l*-* CHAIN ADDRESS 0031B2 OBFF 2057 $RD MVBI X'FF*,R3 SETRD BUFFER TO ALL F*tS 
003126 0084 1943 Dc xfooskt BYTE COUNT 0031B4 6D08 2058 MVW RDDCB+14,R5 SET UP READ BUFFER ADRS 
003128 3154 1944 DC A(IDOO) DATA AREA ADDRESS 0031B8 6F08 2059 MVW RDDCB+12, R7 SET UP BUFFER LENGTH 
1945 x 0031BC 2BAC 2060 FFN R3 (82) CLEAR READ BUFFER 
1946 * CONSTANTS AND DEFINED STORAGE LOCATIONS 0031BE 4020 30EA 2061 SRDS MVA RDD B, LODCB SET UP BLOCK FOR SVC CALL 
00312A 0000 1947 ZEROO DC X'00008 CONSTANT ZERO 0031C4 505A 2062 J XIo 
00312c 0001 1948 ONE1 DC X'0001! CONSTANT ONE 2063 * 
00312F 0000 1949 RAY Dc A laa) WRITE PARAMETER POINTER 0031C6 4020 30DA 2064 $RDVY MVA VRDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
003130 EB6D 1950 WDATA DC X"EBED! WRITE DATA 0031CC 5056 2065 J XIO 
003132 6BDB 1951 DC X'6BDB! * 2066 * 
003134 0000 1952 LGSEC Dc x'oooor LOGICAL SECTOR # 0031CE 4020 30CA 2067 SWRT MVA WRDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
003136 0000 1953 PHYSC DC X'0000! CONVERTED PHYSICAL SEC # 0031D4 5052 2068 J xXIO 
003138 0000 1954 WRSID DC X'0000! FLAG,SECTOR (WRT SECTOR ID DATA) 2069 * 
00313A 0000 1955 DC x'o000! HEAD,CYLINDER 0031D6 4020 310A 2070 S$RKEW MVA RKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
00313C FF34 1956 WSIDT DC X'PF34¢ WRITE SECTOR ID TEST DATA 0031DC OBBB 2071 MVBI X*BB',R3 SET BUFFER TO B'S 
00313E 5678 1957 DC X'5678! * OO0O31DE 4524 2072 MVA SCTID,R5 SETUP READ SECTOR ID BUFFER ADRS 
003140 0000 1958 SCTST DC X'0000! READ SECTOR ID TEST DATA BUFFER QO31E2 4724 2073 MVWI 4,R7 SETUP BUFFER LENGTH 
003142 0000 1959 DC X'OOO0O08 Q0031E6 2BAC 2074 FFN R3 As INIT READ SECTOR ID BUFFER 
003144 00000000000000000 1960 RSBA_ DC OA (4-4) RESIDUAL STATUS BLOCK 0031E8 4020 3020 2075 MVA SCTID, RKDCB+14 DATA ADDR 
003150 0000 1961 CTRO2 DC X¥'0000 COUNTER 0031EE 5045 2076 J XIO 
003152 0000 1962 CTRO3 DC X*0000! COUNTER 2077 * 
003154 0000 1963 IDOO DC X'00008 ID ADDRESS TO BE SET BY USER 0031FO 4020 30FA 2078 SWKEW MVA WKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
003156 1010 1964 PDATA DC X'10108 WRITE DIAG WORD 1 DATA PATTERNS 0031F6 4020 3138 2079 MVA WRSID, WKDCB+14 DATA ADDR 
003158 5555 1965 DC X*5555' * 0031FC 503E 2080 J XIO 
00315A AAAA 1966 DC X'AAAA® * 2081 * 
00315C FFFF 1967 DC X'FFFF¢* * 0031FE 4020 308A 2082 S$WSEC MVA WSDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
1968 * 003204 4020 3138 2083 MVA WRSID, WSDCB+14 DATA ADDR 
1369 FCC CO ok ok tala ea deickickok 4706/7 7 AR OR OR a fom tok akc ik 00320A 5037 eoge J XIO 
1970 * * 
1971 * SUBROUTINE 00320C 4020 306A 2086 $DIAG MVA DGDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
1972 * 003212 5033 2087 J XIO 
1973 * PURPOSE 2088 * 
1974 x 003214 6E0D 2089 SWRTO MVW R6,LSTIO SAVE IAR FOR RETRY IF REQUESTED 
1975 * COMPARE READ SECTOR ID DATA TO WRITE SECTOR ID DATA 003218 OBFF 2090 MVBI 255,R3 CLEAR CYCLE STATUS BUFFER 
1976 * 00321A 4524 2091 MVA  CSBOF,RS5 * TO ALL ONES * 
1977 * CALLING SEQUENCE 00321E OFTE 2092 MVBI 22,R7 
1978 * 003220 2BAC 2093 FFN R3 ABS) * 
1979 * BAL CMPRW,R6 (NORMAL) 003222 4524 2094 MVA pcb F,R5 CLEAR DCB BUFFER TO ALL ONES 
1980 * 003226 OF10 2095 MVBI 16,R7 * 
1981 * RETURN 003228 2BAC 2096 FFN R3 4R>) * 
1982 * 00322A 4020 0708 2097 MVWI x6 08',$IOIN OVERLAY OLD CONDITION CODES 
1983 * BXS (R6,2) = NORMAL 003230 CB25 2098 MVWZ $ISB,R3 ZERO OUT OLD ISB VALUE 
1984 * 003234 4CA3 2099 TBTIR R4,IN CLEAR INTERRUPT RECEIVED CNTL BIT 
1985 * 003236 4CAl 2100 TBTR R4Y,ER RESET ANY ERROR BEFORE I/0 COMMAND 
1986 363K IO IOI ICI I a a IR oI I i ak kok i kok afc ake ae akc af ak 003238 4C62 2101 TBTS R4,XI SET EXPECTED INTR CONTROL BIT 
1987 * 00323A 4724 2102 MVA OBLK, R7 SET UP CONTROL BLK FOR SUPR 
00315E 4724 1988 CMPRW MVWI 4,R7 COMPARE BYTE COUNT 00323E C020 2103 MVB IOMOD+1,R0O GET IDCB FUNC/MODIFIER 
003162 4324 1989 MVA SCTID, R3 ADDR OF RD SEC ID DATA 003242 402D OOFO 2104 RBTWI X'OOFO',IOMOD REMOVE FUNCTION FROM 'IOMOD! 
003166 4524 1990 MVA WRSID,R5 ADDR OF WR SEC ID DATA 003248 3022 2105 SRL 4,RO RIGHT JUSTIFY FUNCTION BITS IN RO 
00316A 2BA6 1991 CFNEN (R3), (R5) COMPARE ID DATA 00324A F005 2106 CBI 5,R0 IDCB FUNCTION = 5? 
00316C 68C0 1992 R6,2 BCH IF WRITE ID DATA OK Q00324C 1003 2107 JE $WRT1 YES - ISSUE 'SVC WRIT1! 
003170 68D2 1993 B R6{ * COMPARE ERROR 00324E 6010 2108 Svc WRITO ISSUE WRITE DPC "4X! OP 
1995 0k I ICICI IOI II IO Ro I iO soko ak kkk fk ak ok 003250 6802 2109 B XIO8-4 GO WAIT FOR THE INTERRUPT 
1996 * 003254 6011 2110 S$WRT1 SVC WRIT1 ISSUE WRITE DPC '5X* OP 
1997 * EXECUTE INPUT & OUTPUT COMMANDS 003256 6802 2111 B XIO8—-4 GO WAIT FOR THE INTERRUPT 
1998 * TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 2li2-* 
1999 * EACH OF THESE ENTRIES SET R7 WITH THE ADRS OF ITS PARAMETER 00325A 4020 30CA 2113 SDGWR MVA WRDCB, IODCB SET UP CONTROL BLK FOR SVC CALL 
2000 * LIST AND ANY SPECIAL SWITCHES BEFORE BRANCHING TO THE 003260 6802 2114 B DG ISSUE START CS DIAG CMD 
2001 * SUPVR CALL. 2115 * 
2002 * : 003264 4020 30EA 2116 S$DGRD MVA RDDCB,IODCB SET UP CONTROL BLK FOR SVC CALL 
2003 * THIS SUBROUTINE WILL CHECK FOR THE FOLLOWING: 00326A 6F08 2117 MVW RDDCB+12,R7 GET NO. OF BYTES TO CLEAR 
2004 * a 00326E 6D08 2118 MVW RDDCR+14, R5 ADDR OF READ BUFFER 
2005 * 1. LOST INTERRUPTS BY TIMING OUT A COUNTING LOOP 003272 OBFF 2119 MVBI X'!FF',R3 CLEAR TO F'S 
2006 * 2. ERROR INTERRUPTS RECEIVED FROM SUPVR 003274 2BAC 2120 FFN R3 (R5) * 
2007 * 003276 6802 2121 B XIODG ISSUE START CS DIAG CMD 
2008 * THIS ROUTINE HAS THE FOLLOWING ENTRIES: 2123 COPY TV7AXE OSMAR78 
2009 * . 2124 PRINT OFF 
2010 * 1 BAL SRKEW, R6 READ SECTOR ID SKEWED 2688 T7AXEQ 
2011 * ‘ 2689 + 4% OO RI GO a coi ioicaick oko 29 UL7 6* * 
2012 * 2 BAL $WKEW,R6 WRITE SECTOR ID SKEWED 2690+* 
2013 * ‘ 2691+* SUB-ROUTINE 
2014 * 3 BAL $WSEC, R6 WRITE SECTOR ID 2692+* 
2015 * eS 2693+* EXECUTE INPUT AND OUTPUT COMMANDS 
2016 * 4 BAL SDIAG, R6 DIAGNOSTIC 2694+* 
2017 * * 2695+* PURPOSE 
2018 * 5 BAL XIOCS,R6 CYCLE STEAL STATUS 2696+* 
2019 * Z 2697+* TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 
oe : 6 BAL SSEEK,R6 SEEK Scacte THIS SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: 
2022 * 7 BAL SRECL, R6 RECALIBRATE 2700+* 1. SAVE THE ADDRESS THAT POINTS TO THE INSTRUCTION THAT STARTED 
2023 * . 2701+* THE I/O COMMAND. 
2024 * 8 BAL SRDID, R6 READ SECTOR ID 2702+* 2. SAVES THE DCB BLOCK USED UNLESS If IS A START CYCLE STATUS 
2025 * Es 2703+* ISSUED BY THIS SUBROUTINE. 
2026 * 9 BAL  $RD,R6 READ 2704+* 3. CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS THE 
2027 * a 2705+* START CYCLE STATUS WAS ISSUED BY THIS SUBROUTINE. 
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2706+* 4. RESETS THE INTERRUPT INDICATOR AND CHECKS FOR ANY INTERRUPT 0032F0 C328 301A 2822+ MVB R3,$101N * PUT IN LOG OUT AREA 
2707+* SINCE THE LAST EXPECTED INTERRUPT. IF AN INTERRUPT IS FOUND, 0032F4 68D2 0000 2823+ B (R6) * RETURN TO USER ERROR HANDLER 
2708+ MYSTERY INTERRUPT pee: CONTROL BIT IS SET. QB QO + HK RH RK KE IR RK a OK RO a ak lok ik kok tek ic kak ke tok ok kk kok ek KK TA DRT 6** 
2709+ 5. MOVES THE ADDRESS OF THE I/O CONTROL BLOCK IN R7, SET THE 2826+* IL 
2710+* EXPECTED INTERRUPT CONTROL BIT AND ISSUE THE ‘SVC START*. 2827+* SUB-ROUTINE IL 
2711+* 6. WHEN THE SUPVR RETURNS AFTER ISSUING THE I/O COMMAND, TIMING 2828+* IL 
2712+* STARTS TO DETERMINE A LOST INTERRUPT. 2829+ ERROR INTERRUPT RUNS ON INTERRUPT LEVEL *$INTL* IL 
2713+ 7. EXCEPT THE INTERRUPT AND GATHER INFORMATION TO DETERMINE IF IT 2830+* IL 
27144+* WAS AN ERROR OR OKAY AND EXIT OFF THE INTERRUPT LEVEL. 2831+* PURPOSE IL 
2715+ 8. CHECK IF THERE WAS A WRONG INTERRUPT LEVEL. 2832+* IL 
2716+%* 9. CHECK IF AN ERROR WAS EXPECTED AND IF THERE WAS RETURN. 2833+* THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR IL 
2717+* 10. CHECK IF THERE WAS AN ERROR CONDITION, IF NOT RETURN. 2834+* OR THE INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THE IL 
2718+%* 11. CHECK TO SEE IF THE EXERCISER IS TO BE TERMINATED. 2835+* EXPECTED CODE. IL 
2719+ 12. CHECK IF A CYCLE STEAL OPERATION WAS IN PROGRESS THAT WAS 2836+* IL 
2720+* ISSUED BY THIS SUBROUTINE. 2837+* CALLING SEQUENCE IL 
2721+* 13. CHECK THE ISB BITS THAT APE ON. IF BIT O IS ON, ISSUE A 2838+* IL 
2722+ CYCLE STEAL STATUS COMMAND. CHECK FOR ANY OTHER BIT BEING ON, 2839+* SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/0 INTERRUPT TL 
2723+% COUNT IT AND SET UP THE PROPER ERROR MESSAGE TO BE PRINTED. 2840+ IL 
2724+ 28414+* RETURN CONTROL IL 
2725+* CALLING SEQUENCE 2842+ IL 
2726+* 2843+ svc EXIT RETURN TO USEP VIA SUPVR IL 
2727+* THIS ROUTINE HAS THE FOLLOWING ENTRIES: 2844+ IL 
2128+* 2 BUD + KH RK KK OK EK RR lo ak ia glokok ick ok ako tuk kkk ok ka kak kK kK KT ET 
2729+* --> BAL XIO OR XEQ ANY CYCLE STEAL COMMAND, MOD=0 2846+ IL 
2730+* --> BAL XIO1 MOD PARM PRELOADED IN 'IOMOD!? 2847+* CC O= CONTROLLER END ISB O= ADD STATUS IL 
2731+* --> BAL XIOCS,R6 OR XEQ START CYCLE STEAL STATUS, MOD=F 2848+* FOR 1= PROGRAM CONTROL INTERRUPT BITS 1= COMD REJECT IL 
2732+* --> BAL XIOCS—4,R6 AUTO CS STATUS (FOLLOWING OTHER XIO 2849+* INTR 2= EXCEPTION INTERRUPT FOR 2= INCOR LENGTH IL 
2733+* . AND DOES NOT POST INTERRUPT STATUS) 2850+* 3= DEVICE END INTERRUPT INTR 3= DCB SPEC CK IL 
27344+% 2851+* 4= ATTENTION INTERRUPT 4= STG DATA CK IL 
2735+* RETURN CONTROL 2852+* 5= ATTENTION / PROGRAM CNTL INTR 5= INV STG ADRS IL 
2736+%* 2853+* 6= ATTENTION / EXCEPTION INTR 6= PROTRCT CK IL 
2737+ BXxs R6,2) RETURN TO USER NO ERROR 2854+ 7= ATTENTION / DFVICE END INTR 7= I-FACE DATA IL 
2738+* OR R6) * RETURN AND RETRY ON ERROR 2855+* IL 
2739 + RR IO CCCI IG I IG iol kakaiak tok kot ae koko a ak ake aka a 0032F8 T706E 2856+INTER CPLSR R3 COPY STATUS ANY LEVEL INTO R3 IL 
00327A CB25 338E 2741+XIO MVWZ IOMOD,R3 SET MOF OF 0 FOR CYCLE STEAL OP OO32FA 336A 2857+ SRL 13,R3 POSITION INDICATORS IN R3 IL 
00327E 500E 2742+ J XIO1 CS I/O'S ARE NOT RETRIED 0O032FC 4424 3012 2858+ MVA OPfN1,R4 SET UP BASE ADRS IL 
27434+* 003300 4c28 2859+ TBT (Rd c$) IS CS IN PROGRESS IL 
003280 4020 338E O00D 2744+XIODG MVWI xX*000D',IOMOD SET MODIFIER FOR DIAGNOSTIC OPS 003302 1006 2860+ JOFF NTES * NO IL 
003286 500A 2745+ J XI0o1 GO TO CS OPS 003304 4C6A 2861+ TBTS fae CE TURN ON CYCLE STEAL INTER ERROR IL 
2746+%* : 003306 6FOD 3026 2862+ MVW 7, DEV SAVE CS ERR ISB VALUE, BITS 0-7 IL 
003288 4CAA 2747+ TBTR RY,CE RESET CS STATUS INTER ERROR INDICAT. 00330A C328 3027 2863+ MVB R3,DEVU+1 * AND THE COND CODE IL 
00328A 4C68 2748+ TBTS R4,CS SET "CYCLE STEAL STATUS! IN PROGRFSS 00330E 500A 2864+ J INTR1 IL 
00328C 4020 338C 30BA 27494+XIOCS MVA SDCB, LODCB SET UP CONTROL BLOCK FOR SVC CALL 003310 4c24 2865+INTES TBT an XE) TEST EXPECTED ATTEN / ERROR IND IL 
003292 4020 338E OOOF 2750+ MVWI X*OOOFT, TOMOD SET CYCLE STEAL MODIFIER 003312 1002 2866+ JOFF nth BCH IF NOT EXPECTED IL 
003298 4C28 2751+ TT fra CS) IS CS IN PROGRESS, ERROR CONDITION 003314 F304 2867+ CBI 4,R3 IS THIS AN "ATTENTION! INTR IL 
00329A 1213 2752+ JON T02 * YES, BYPASS SAVING I/O ADRS 003316 1006 2868+ JE INtTR1 * YES, BCH TO END INTR SEQUENCE IL 
00329C 6E0D 301E 2753+XI0O1 MVW R6,LSTIO SAVE £AR FOR RETRY IF REQUESTED 003318 4C61 2869+INTET TBTS {Ra ER) SET ERROR ON I/O COMMAND CNTL BIT IL 
0032A0 4324 3028 2754+ MVA DCBUF,R3 SET UP TO ADPS TO MOVE DCB TABLE 00331A 5004 2870+ J wTh1 IL 
0032A4 6D08 338C 2755+ MVW TODCB,R5 * AND THE FROM ADRS, ALONG WITH 2871+* THE ERROR INTERRUPT USES THE SAME IL 
0032A8 OF1A 2756+ MVBI 26,R7 * THE NUMBER OF MOVES 2872+% ENDING SEQUENCE AS THE NORMAL INTR IL 
OO32AA 2D64 2757+ MVFN SB) $83) MOVE 1 STATUS WORD AND ADJUST 287 U4 4% 3k IK kkk Rok ko ok ick ok ilo tokio tok i loki iiok tok atic tok atok 144A PRT 6 IL 
0032AC OBFF 2758+ MVBI 55,8 CLEAR CYCLE STATUS BUFFER 2875+* IL 
O032AE 4524 3038 2759+ MVA CSBOF,RS x TO ALL ONES * 2876+* SOUBROUTINE IL 
0032B2 OFIA 2760+ MVBI 6,R7 * 2877+* IL 
0032B4 2BAC 2761+ FFN R3 {B5) * 2878+ OKAY INTERRUPT RUNS ON INTERRUPT LEVEL '$INTL! EL 
0032B6 4020 301A 0708 2762+ MVWI xX'*6708', $IOIN OVERLAY OLD CONDITION CODES 2879+ IL 
0032BC CB25 301C 2703+ MVWZ S$ISB,R3 ZERO OUT OLD ISB VALUE ee hes PURPOSE - 
+ 
0032CO 4CA1 2765+ TBTR R4,ER RESET ANY ERROR BEFORE I/O COMMAND 2882+* TO CHECK THE INTERRUPT AND CONTINUE THE TEST IL 
0032C2 4CA3 2766+XI02 TBTR RG,IN CLEAR INTERRUPT RECEIVED CNTL BIT 2883+* IL 
0032C4 4724 3388 2767+ MVA OBLK, R7 SET UP CONTROL BLOCK FOR SUPVR 2884+* CALLING SEQUENCE IL 
0032C8 4CA6 2768+ TBTR R4,$LE) RESET LEVEL ERROR INDICATOR 2885+* IL 
0032CA 4C6é2 2769+ TBTS RY, XI) SET EXPECTED INTR CONTROL BIT 2886+* SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUESTED IL 
0032cc 600A 2770+ SVC TART CALL SUPVR FOR I/O COMMAND 2887+* THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE IL 
2771+ 2888+* AFTER THE SPECIAL PART HAS BEEN COMPLETED AND THE IL 
0032CE 4CAT7 2772+ TBTR R4,NI) IS AN INTR EXPECTED 2889+ COMMON SECTION IS HANDLED HERE. IL 
0032D0 6ACO 0002 2773+ BN R6, 2) * NO, RETURN TO USER 2890+* TL 
27744+% 2891+* RETURN CONTROL IL 
2775+* THE INTR SHOULD OCCUR WHILE SPINNING IN THE NEXT SECTION 2892+ TL 
2716+ 2893+* SVC EXIT RETURN TO USER VIA SUPVR IL 
0032D4 4524 0000 2777+ MVWI 0O,R5 SET UP WORK REG FOR 'LOST INTR! 2894+ IL 
0032D8 UCA3 2778+ XI0O8 TBTR ser ceN) HAS INTERPUPT BEEN RECEIVED 2B 95 + KKH RK KK RO RR kok kak kkk tok kok tok soko ick katoi kok ak tok tok bok KK KT I 
0032DA 1239 2779+ JON IOCK * YES, CHECK IF ALL WAS SATISFACTORY 00331C 706E 2896+INTOK CPLSR R3 COPY STATUS ANY LEVEL INTO R3 IL 
0032pDC 6002 2780+ SVC IDLE ALLOW ANOTHER PROGRAM A CHANCE TO RUN 00331E 336A 2897+ SRL 13,R3 POSITION INDICATORS IN R3 IL 
2781+ SUPVR WILL RETURN HERE 003320 4424 3012 2898+ MVA OPTN1,R4 SET UP BASE ADRS pee 
0032DE 6002 2782+ SVC IDLE ALLOW ANOTHER PROGRAM A CHANCE TO RUN 003324 4Cé3 2899+INTR1 TBTS R4y,1If SET INTERRUPT RECEIVED IL 
2783+* SUPVR WILL RETURN HERE 003326 4C28 2900+ TBT R4,CS IS 'CS IN PROGRESS! ON IL 
0032EF0 T7DA1 2784+ AWI 1,R5 ADVANCE TIME OUT COUNT 003328 1204 2901+ JON NTR? * YES, BCH AROUND UPDATE IL 
0032E4 18F9 2785+ JNZ XIO8 BCH IF TIME OUT NOT REACHED 00332A C328 301B 2902+ MVB R3,S1O0IN+1 SAVE {INTERRUPTING CC CODE TL 
0032F6 4C61 2786+ TBTS R4,ER) SFT ON FRROR CONTROL BIT 00332E 6F0D 301C 2903+ MVW R7,S1SB SAVE INTR STATUS AND DEV ADRS IL 
0032E8 68D2 0000 2787+ B R6) * ERR 'NO INTERRUPT! 003332 29044+INTR2 EQU * IL 
ZT BOF RHEK KKK HK KEE OK ROK ORK Ro i ok tokio kak doko tok tok atk Kk kK KO BF ERT 6** 2905+* CPCL R5 CURRENT LEVEL COPIED BY DCP TL 
2790+* 003332 3521 2906+ SLL 4,R5 POSITION INTR LEVEL AND PUT IL 
2791+* SUBROUTINE 003334 0501 2907+ ABI 1,R5 * IN *I' BIT TL 
27924 003336 CD24 3058 2908+ CW SINTL, RS IS THIS THE CORRECT INTR LEVEL IL 
2793+* I/O EXECUTE ERROR HANDLING ROUTINE 00333A 1002 2909+ JE INTR3 * YES, GO EXIT THIS LEVEL IL 
27944+* 00333C 4C66 2910+ TBTS R4,$LE) SET IfffR LEVEL ERROR CONTROL BIT IL 
2795+* PURPOSE 00333E 4Cé61 2911+ TBTS R4,ER SET ERROR ON I/O COMMAND CNTL BIT IL 
2796+ 003340 4CA2 2912+INTR3 TBTR R4, XI WAS INTERRUPT EXPECTED IL 
2797+* THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE 003342 1204 2513+ JON nTRX * YES, EXIT OFF THIS INTR LEVEL IL 
2798+ PROBLEM THAT WAS FOUND WHEN THE Y/O COMMAND WAS ISSUED BY THE 003344 4C60 29144 TBTS (Re MI) * NO, SET MYSTERY INTR CONTROL BIT IL 
2799+% SUPERVISOR AND IT WAS NOT ACCEPTED. 003346 F304 2915+ CBI R3 ATTENTION INTERRUPT? IL 
2800+* 003348 1001 29 16+ JE INtTRX YES IL 
28014+* CALLING SEQUENCE 00334A 4C6C 2917+ TBTS (Ra NG) ERROR, UNEXPECTED INTERRUPT IL 
2802+ 00334C 6006 2918+INTRX SVC Xf EXIT THIS LEVEL VIA SUPVR TO PGM~ IL 
2803+* SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/0 COMMAND Oa EO Rn eres Cerner Cate TP en ees Tae ehe TERE COS RED TESS 
28044 1+* 
2805+* RETURN CONTROL 2922+* THIS IS THE CONTINUATION OF EXECUTE I/0 AFTER THE INTERRUPT 
2806+* 2923+* HAS BEEN SERVICED. THE EXERCISER FINDS AN INTERRUPT HAS BEEN 
ge0ret B (R6) * RETURN TO USERS ERROR HANDLER ea ante RECEIVED AND BRANCHES HERE TO CHECK FOR ANY ERROR CONDITIONS. 
+ 
2809 + KR RO Ft ICO RO ROR IORI CK OR i oi gigi ak gokiok doko kokotote kfc ak 2926+* 
2810+* 00334E 4CA4 2927+XIOCK TBTR RY, XE) WAS AN ERROR EXPECTED 
2811+* CC O= DEVICE NOT ATTACHED 003350 6ACO 0002 2928+ BN Ree ay * YES, EXIT THIS ROUTINE 
2812+* FOR 1= DEVICE BUSY 003354 4CA8 2929+ TBTR R4,CS) WAS AUTO CS IN PROGRESS 
2813+* I/0 2= DEVICE BUSY AFTER RESET 003356 1006 2930+ JOFF TOCV * NO, CONTINUE CHECKING 
2814+* 3= COMMAND REJECT 003358 4C2A 2931+ TBT vee CE) Is cS IN AN ERR CONDITION 
2815+4+* G= INTERVENTION REQUIRED 00335A 1002 2932+ JOFF roto * NO, BCH 
2816+ S= INTERFACF DATA CHECK 00335C 68D2 0000 2933+ B R6) * CS ERROR 
2817+* 6= CONTROLLER BUSY 003360 4c69 2934+xIOCO TBTS R4,CSA) TURN ON CS STATS AVAIL FLAG 
2818+* 7= I/O COMMAND EXCEPTED 003362 5601 2935+ BXS R6,2 GO TO USER 
2819+* 003364 4C21 2936+XIOCV TBT R4,ER) WAS ERROR INTR CONTROL BIT ON 
0032EC 706E 2820+XIOER CPLSR R3 COPY STATUS ANY LEVEL INTO R3 003366 100D 2937+ JOFF Toex * NO, EXIT THIS ROUTINE 
0032EE 336A 2821+ SRL 13,R3 POSITION CC CODE TO BITS 13-15 2938+* 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
003368 C520 301B 2939+ MVB $IOIN+1,R5 GET LAST INTR CC CODE OO341E 4020 19BA 359A 3055+ MVA DC2PT, @DCADD2 
00336C F502 2940+ CBI 2,R5 if IS THIS cC=2 003424 402C 19C4 0080 3056+ OWL BIT0080,SUPSTAT 
00336E 1003 2941+ JE xfoco YES 00342A 4324 3018 3057+ MVA $TUID,R3 SET UP BUFFER STORAGE 
003370 F506 2942+ CBI 6,R5 IS THIS CC=6 O0O0342E 6F13 18BA 3058+ BAL TUMSGWTR*, R7 GO TO MESSAGE WRITER 
003372 68D1 0000 2943+ BNE RO) * * NO, BCH TO ERROR HANDLER 3059+* 
003376 c520 301Cc 29444+XIOCQ MVB ISB,R5 GET £LaAST ISB DATA BYTE AND IF CS 003432 3060+ $CONX Bou * 
00337A 6A00 3288 2945+ BN XTOCS-4 * AVAILABLE, GO AND GET IT 003432 C720 19D0 3061+ MVB DEVADD,R7 GET DEVICE ADDRESS FROM MDI 
00337E 68D2 0000 29U6+ B 26) * ERROR 003436 6013 3062+ svc RICB RELEASE INTERRUPT CONTROL BLOCK 
003382 CB25 3016 2947+XIOCX MVWZ PTN3,R3 CLEAR OUT OPTION 3 CNTL BITS 003438 6812 305A 3063+ B TURTN* RETURN TO MDI SUPERVISOR 
003386 5601 2948+ BXS (R6, 2} RETURN TO USER VIA REG 6 3064+* 
2949+ 00343Cc 0009 3065+BEGIN DC a pone NUMBER OF LINES TO PRINT 
2950+* I/0 PARAMETER LIST 00343E 0008 3066+ Dc A (0008 LINE LENGTH = 8 CHAR 
29514+* 003440 5C5C40C1C2D6D9E3 3067+ Dc C'** ABORT! 
003388 19D0 2952+IOBLK DC A (DEVADD) ADRS OF DEVICE ADRS 003448 0028 3068+ DC A (0040) LINE LENGTH = 4O CHAR 
00338A 32EC 2953+ DC A (XIOER) FRROR ROUTINE ADRS OO344UA EZE4COCKHYUOCIDECOD 3069+ DC C'TUID IOIN ISB INST SECT ID DATA CSCC ! 
00338C 0000 2954+IODCB DC A (*-* DCB ADRS OR LEVEL & INTR 003472 0028 3070+ DC A (0040) LINE LENGTH = 4O CHAR 
00338E 0000 2955+IOMOD DC A (*-* MODIFIER 003474 4O4O4O4OKOSO4LO4O4 30714+LINET DC Cc! t 
003390 0000 2956+ DC A (*-* ADRS OF LAST SVC CALL 00349C 0028 3072+ DC A (0040) LINE LENGTH = 4O CHAR 
003392 0000 2957+IORSP DC A (*-* SECOND WORD OF LAST IDCB OO349E C3D5E3D340C4C3C2F 3073+ DC C'*CNTL DCB1 DCB2 DCB3 DCBUY CHAD BYCT ADRS ! 
2958+ 0034C6 0028 3074+ DC A (0040) LINE LENGTH = 4O CHAR 
2959+ INTERRUPT CONTROL BLOCK FOR I/C COMMANDS 0034C8 4OUOLOKOLO4OKOUO4 3075+LINE2 DC cr t 
2960+ 0034FO 0028 3076+ DC A (0040) LINE LENGTH = 4O CHAR 
003394 19D0 2961+INTBL DC A (DEVADD) ADRS OF DEVICE ADRS OO34F2 C3E2Z60FOUOC3E260F 3077+ Dc C¥'cs-0 CS-1 CS-2 CS-3 CS-4 CS-5 CS-6 CS-7 ! 
003396 331C 2962+ DC A (INTOK INTERRUPT OK RETURN ADRS 00351A 0028 3078+ DC A (0040) LINE LENGTH = 40 CHAR 
003398 32F8 2963+ DC A(INTEP INTERRUPT ERROR ADRS 00351C 4O4OKO4O4O4O40404 3079+LINE3 DC c* ' 
00339A 0003 2964+INTCC DC X¥'0003! INTERRUPT CODE EXPECTED 003544 0028 3080+ DC A (0040) LINE LENGTH = 40 CHAR 
2966+ * KR II ICR IORI OK GR lak tok ic taka dota accok 11M AY 7 6% 003546 C3E260F840C3E260F 3081+ DC C'*cS-8 CS-9 CS~-A CS-B CS-C t 
2967+* 003568 0028 3082+ DC A (0040) LINE LENGTH = 4O CHAR 
Z268+% SUBROUTINE 003570 4040404040404 0404 3083+LINES pc ct ' 
+x + 
2970+* CONNECT INTERRUPT CONTROL BLOCK & PREPAPE DEVICE 003598 0000 3085+BUFPT DC A ) 
2971+ 00359A 343c 3086+DC2PT DC A (BEGIN) 
2972+* PURPOSE 00359C 0101 3087+FIXTU C x*01018 
2973+% 00359E 0101 3088+ FAKETU DC X'01018 
2974+* TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND OOF 1F0 3089+PIDMSG10 EQU X' FIFO! 
2975+ PREPARE ON THE DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE 000080 3090+BITO0080 EQU X*0080! 
2976+ TO INTERRUPT. 3091+* 
2977+% 3092+* DATA CONTROL BLOCK FOR CONVERTING HEX TO EBCDIC 
2978+* CALLING SEQUENCE 3093+* 
2979+ 0035A0 OO3A 3094+HEBLK DC A 28) NUMBER OF BYTES TO CONVERT 
2980+* THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 0035A2 3018 3095+ DC A (ST a FROM ADRS 
2981+* OO35A4 181A 3096+ DC A (TUWORK) AND THE TO ADRS 
2982+* --> BAL $SCONC, R6 CLEAR DEV DEP STG AND CONNECT I/O BLK 3097 COPY T7A52 28APR78 
; 2983+* ~-> BAL SCONP, R6 PREPARE DEVICE ONLY, ALREADY CONNECT 3098 T7A52 TUIT 1 
2984+4+* 30.9.9. EO IO IO Gogg iui doiiokigigoiicikiacit’ 06 P EBT 6 « 
2985+* RETURN CONTROL 3100+* 
2986+* 3101+* TEST UNIT 
2987+* BXS R6, 2) RETURN TO USER VIA REG 6 IF OKAY 3102+* 
re hae OR B R6) * IF THE DEVICE COULD NOT BE CONNECTED Slane 
+ 
2990 + 2 I OI IO I II I IK i kok kk tok ak deat ak kak ai ak 2k 3105+* PURPOSE 
00339C OFO6 2991+$CONC MVBI 6,R7 NUMBER OF BYTE TO CLEAR 3106+* 
00339E OBOO 2992+ MVBI O,R3 * AND THE DATA TO USE 3107+* TEST THE CONFIGURATION RECORD FOR THE BASE FILE AT THIS 
0033A0 4524 3020 2993+ MVA DEVI, R5 * ALONG WITH THE ADRS TO USE 3108+* ADDRESS. 
0033A4 2BAC 2994+ FFN R3 (£5) x 3109+* 
0033A6 CB25 3016 2995+ MVWZ OPtN3,R3 CLEAR OLD CONTROLS FOR NEW ROUTINE 3110+* CALLING SEQUENCE 
OO33AA 4724 3394 2996+ MVA INTBL,R7 SET R7 TO CONTROL BLOCK AND 3111+* 
OO33AE 6014 2997+ svc CICE * CONNECT IT TO THIS DEVICE 3112+* MDI=OTUXX,T7A52,1,80,0F! 
0033B0 6ADO 0000 2998+ BN (R6) * ERROR RETURN TO USER 3113+* i 
2999+* 3114+* TURESUL BIT(S) 0 -....-... NOT BASE FILE 
0033B4 8828 3058 338Cc 3000+$CONP MVW SINTL,IODCB PUT IN LEVEL & INTR PARAMETER 3115+4+* 
0033BA 4724 3388 3001+ MVA TOBLK,R7 SET R7 TO CONTROL BLOCK TO PREPARE 3116+* RETURN CONTROL 
0033BE 4020 301A 0708 3002+ MVWI x'0708',$IOIN INITIALIZE CONDITION CODE STORAGE 3117+* 
0033C4 CB25 301C 3003+ MVWZ $ISB,R3 * AND CLEAR OLD ISB VALUE 3118+* B TURTN* RETURN TO MDI SUPERVISOR 
9033C8 6E0D 3018 3004+ MVW R6, LSTIO SET UP ADDRESS THAT STARTED LAST I/0 3119+* 
0033CC 600C 3005+ SVC PREp * AND CALL ON SUPVR CEMA Rt ST SSP TS STS SS PTS SSS SS SSS SS TSS SSS SS SS SS SSCS SSS SSS SCS SCSCSLCS SCL SSS LS Ses es 2 
0033CE 5601 3006+ Bxs (R6, 2) RETURN TO USER 0035A6 6FOD 305A 3121+T7A52 MVW R7,TURTN SAVE RETURN ADDRESS 
3.0.0 84 AA aa IG IAAI OO OCI IGG i aK O6 APR 7 640% OO35AA 4020 3018 7A52 3122+ MVWI X'7A52", $TUID SAVE TU ID FOR DISPLAY 
3009+* 0035B0 4424 3012 3123+ MVA OPTN1,R4 SET UP POINTER ADRS IN R4& 
3010+* SUBROUTINE 3124+ 
3011+* 0035B4 D025 18c8 3125 MVDZ TURESUL,RO CLEAR THE RESULTS AREA 
3012+* DISCONNECT THE INTERRUPT CONTROL BLOCK AND LOG ERRORS 0035B8 4224 18cC8 3126 MVA TURESUL, R2 LOAD RESULTS BASE REG. 
3013+* 0035BC 802B 19D0 19D3 3127 CB DEVADD, DEVADD+3 TEST IF BASE FILE 
3014+* PURPOSE 0035c2 1001 3128 JE T7A50X NO CONTINUE THIS MAP 
3015+ 0035c4 4aA4O 3129 TBTS (R2,0) SET NOT BASE FILE BIT 
3016+* DISCONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 3130 TVA5SOX TXIT * RESULTS AND EXIT 
3017+* SET THE 'NO GOOD! CONTROL BIT, THEN LOG THE DATA THAT HAS 0035C6 6802 3432 3131+T7A50X B $CONX RETURN TO MDI CONTROLLER 
3018+ BEEN FOUND TO HELP THE OPERATOR DEFINE THE ERROR CONDITION. BT 3B De KK WK KK KK KK I eK 2K 9K I KK KKK kK kk ko ok ak kak ok ke lok ok fe oto ak ak katoi ick kk tok kk ke kc fe ic ae afc 
3019+* 3134 COPY T7A55 14AUG78 
3020+* CALLING SEQUENCE 3135 T7A55 TUILT 
3021+* 3136 + ¥* RK OIC OK IO IOI i iO Rk kok kok toktok oko 6 FEB 7 6% * 
3022+* THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 3137+* 
3023+* 3138+* TEST UNIT 
3024+* --> B SERRS SET 'NG* BIT AND CONVERT DATA TO LOG 3139+* 
3025+% --> B $CON X RETURN TO MDI SUPERVISOR TO TEST STS a ae DIRECT PROGRAM CONTROL INTERRUPTING CMDS 
+ 
3027+* RETURN CONTROL 3142+* PURPOSE 
3028+* 3143+* 
3029+* B TURTN* RETURN TO MDI 3144+* THREE PARAMETERS ARE NEEDED FOR THE EXECUTION OF THIS TU AND ARE: 
3030+* OR B (R6) * IF THE DEVICE COULD NOT BE CONNECTED 3145+* Bi 
3031+* 3146+* 1. ONE BYTE OF FUNCTION-MODIFIER,IE, X*4X" FOR DPC WRITE 
3032+ 7% 2 I A iO OR Io i Ra RC ok aI takai ak ak ak ake aac ak 3147+* 2. TWO BYTES OF DATA TO BE USED’ IN’ THE SECOND PART OF THE IDCB, 
0033D0 4020 1818 8000 3033+$SERRS MVWI X'* 8000" , TUSTATUS SET ON "NO GOOD! STATUS BIT 3148+* - IE, X'0005' TO BE SENT TO THE DEVICE. 
9033D6 4724 35A0 3034+ MVA HEBLK,R? GET ADRS OF CONTROL BLOCK 3149+ 2 
0033DA 601A 3035+ SVC HTOE CONVERT HEX TO EBC VIS DCP 3150+* THIS TEST UNIT PREPARES THE DEVICE AND EXPECTS AN INTERRUPT 
0033DC 4020 188E 4040 3036+ MVWI X*4O40!,TUWORK+116 3151+* AND WILL SEND BACK THE CONDITION CODES OF THE I/O AND INTR. 
0033EF2 4020 1890 4040 3037+ MVWI X*4040!, TUWORK+118 3152+ 
0033E8 4020 1892 4040 3038+ MVWI X*4040!, TUWORK4+120 3153+* CALLING SEQUENCE 
0033EE ODO4 3039+$PRNT MVBI 4,R5 3154+* 
0033FO 4324 181A 3040+ MVA TOUWORK, R3 SET UP BUFFER STORAGE 3155+* MDI=O@TUXX,T7A55,2,0708, EQ, PLNG=6, PARM=FMXXXX!? 
0033F4 6BOD 3598 3041+ MVW  R3,BUFPT 3156+* : 
0033F8 4124 3474 3042+ MVA LINE1,R1 3157+* TURESUL BIT(S) 0 - 15...... ~-O10 CC, INTR CC 
0033FC OFOY 3043+ MVBI 4,R7 3158+* é 16 - 23.......-INTERROGPT STATUS BYTE 
0033FE OEFO8 3044+ MVBI 8,R6 3159+* : DU eis @ are CYCLE STEAL STATUS IO/INTR ERROR 
003400 2B24 3045+MVBUF MVFN (83) 6 (1) 3160+* 2 2S: gaa erece CAP ERROR STATUS BIT 
003402 OFO4 3046+ MVBI 5k 3161+* . 32 - U7...... --CYCLE STEAL STATUS WORD 4 
003404 OA4O 3047+ MVBI x'4Ot,R2 3162+* . UB - 63......6. CYCLE STEAL STATUS WORD 5 
003406 C258 3048+ MVB ~~ R2 (Ripe 3163+* 
003408 BEFB 3049+ JCT MVB F,R6 3164+* RETURN CONTROL 
00340A OOS 3050+ MVBI 8,R6 3165+* 
00340C 7921 002C 3051+ AWI 44 R1 3166+* B TURTN* RETURN TO MDI SUPERVISOR 
003410 BDF7 3052+ JCT  MVBUF,RS5 3167+* 
003412 4020 1802 FIFO 3053+ MVBWI PIDMSG610 PID+2 3168 4% HK KK KK KK aK KK kK kk kkk aK kk koko ok okkok kok kok kK kok kok kok Rk ok ROR ROR fa kok foi agoakoakokoakokak ak 
003418 4020 19B8 359k 3054+ MVA FAKETU,@DCADD1 0035CA 6FOD 305A 3169+T7A55 MVW R7, TURTN SAVE RETURN ADDRESS 
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OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
4020 3018 7A55 3170+ MVWI X'*7A55',$TUID SAVE TU ID FOR DISPLAY 0036C4 9028 304E 1824 3285 MVD CST12,TUWORK+t 10 SAVE THE DIAG. SENSE BYTES 
424 3012 3171+ MVA OPTN1,R4 SET UP POINTER ADRS IN R& O0O36CA 8828 181A 18C8 3286 MVW TUWORK, TURESUL MOVE INTO TU RESULTS AREA 
6E03 339C 3172+ BAL SCONC, R6 CLEAR DEV DEP STG AND CONNECT IT/0 BL 0036D0 9028 181C 18CA 3287 MVD TUWORKt+2 ,TURESUL+2 * 
33D0 3173+ DC A (SERRS) ERROR ADRS FOR INVALID PREP 0036D6 9028 1820 18CE 3288 MVD TUWORK+6 , TURESUL+#+6 * 
3174+%* 0036DC 9028 1824 18D2 3289 MVD TUWORK+10,TU RESUL+410 * 
4224 18C8 3175 MVA TURESUL, R2 LOAD ADDR TURESULS BUFF IN RES 2 0036E2 4O02B 181C 0001 3290 TWI X'0001', TOWORK+2 CHECK INTERFACE ERROR? 
4020 301A 0708 3176 MVWI X'0O708!,$IOIN INIT THE CONDITION CODES 0036E8 1202 3291 JON T7A89 YES EXIT 
6908 189A 3177 MVW TUPARM1,R1 SET UP PARM ADRS OO36EA C025 18D5 3292 MV BZ TURESUL+13,R0 CLEAR WRAP BYTE IF NO ERROR 
8118 3658 3178 MVB bese ie TIASSL * AND SET IN FUNCTION-MODIFIER 3293 T7A89 TXIT 
8028 19D0 3659 3179 MVB EV op T7A55L+1 * FOLLOWED BY THE DEVICE ADRS OO036EE 6802 3432 32944T7A89 S$CONX RETURN TO MDI CONTROLLER 
8118 365A 3180 MVB R1 +, T7A55L42 * AND SET IN EVEN BYTE DATA 3295 + RIO I III IO IORI ICO IORI I IO IOI II ROR OK IO IKK KK 4K KK 
8118 365B 3181 MVB faje T7TA55L+3 * AND SET IN ODD BYTE DATA 3297 COPY T7A13 15MAR78 
D020 3658 3182 MVD TA 5£,R0 GET FUNCTION, MODIFIER AND DEV ADRS 3298 T7A13 TUIT 
3183 * * AND THE SECOND WORD OF THE IDCB 3299 + IO OO IOI IO IOI IG OIC OR KOK 4K E06 PEBT] 6** 
680C 3658 3184 Io T7A55L ISSUE THE I/O COMMAND AND 3300+* 
JOAE 3185 CPLSR R5 * GET THE I/O CONDITION CODE IN R5 3301+* TEST UNIT 
356A 3186 SRL 13,R5 POSITION CC IN THE RESULTS FIELD 3302+* 
C528 301A 3187 MVB R5,S1LO0IN * AND SAVE IT IN THE RESULTS 3303+* INTERFACE AND I/O BUFFER TEST 
ODFF 3188 MVBI -1,R5 SET UP FOR DELAY 3304+* 
6003 3189 T7A55K SVC IDLES5 WAIT FOR INTERRUPT 3305+* PURPOSE 
4CA3 3190 TBTR Ai IN) HAS IT COME YET 3306+* 
1201 3191 JN TA55M * YES, GET OUT OF aes 3307+* WRITE TO CAP DIAGNOSTIC WORD 1 AND CHECK FOR NO ERRORS. 
BDFC 3192 JCT T7A55K,R5 * NO, CHECK FOR TIME UT 3308+* READ DIAGNOSTIC WORD 1, CHECK FOR NO ERRORS AND VERIFY 
9028 301A 18C8 3193 T7A55M MVD S$IOIN fURESUL PUT ANY INTR COND CODE FOUND IN 3309+* PATTERN IS AS WRITTEN. PATTERNS USED ARE FF, AA, 55, AND 10. 
C025 18CB 3194 MV BZ TURESUL+3, RO CLEAR BYTE 3 OF TURESULS BUFFER 3310+* 
4c21 3195 TBT AeA ER) EXCEPTION INTERRUPT OCCUR? 3311+* CALLING SEQUENCE 
1001 3196 JOFF X7A55 NO - RETURN TO MDI 3312+* 
9EO2 3197 JAL IO5ER,R6 GO GET CYCLE STEAL STATUS INFO 3313+* MDI=$TUXX, 'T7A13,02,00,5E0 
3198 X7A55 fTXIT * RESULTS AND EXIT 33144+* s 
6802 3432 3199+X7A55 B SCONX RETURN TO MDI CONTROLLER 3315+* TURESULS BIT(S) 0 = 7 seees DATA PATTERN IN USE IF ERROR 
2320 0 £6 ROI IO ROI IO IO ROR IR IO IO ICI RO ORR IOI OR III IOI a a kak ak ic ae ake ofc 3316+* A Fh ae DISK UNIT PARITY CHECK 
3201 * ' 3317+* 9 6 estes ERROR ON WRITE DIAG WORD 1 
6EOD 3652 3202 IO5SER MVW R6 ,TA55+2 SAVE RETURN ADDRESS 3318+* Ps 10 ...£.+ ERROR ON READ DIAG WORD 1 
6E03 328C 3203 BAL Xx16cs R6 GET CYCLF STEAL STATUS 3319+* = 11 ...-.- DATA COMPARE es 
33D0 3204 DC A(SERRS) ABORT TEST IF ERROR 3320+* ‘s AL (6, &oes CS STATUS ERROR (BIT 12-WORD 4) 
4C21 3205 TBT R4Y,ER) EXCEPTION INTR OCCUR? 3321+* 7 13 ...--.- CS STATUS IO INTERRUPT ERROR 
120D 3206 JON SERS YES - SET CSS INTR ERROR BIT ON 3322+* . pt! ee bs ee NOT USED 
9028 3040 18CC 3207 MVD CSTL5, TURESUL+4 MOVE CS STATUS WDS 4 & 5 IN TU BUF 3323+* - 16 - 47 ...-.- CYCLE STEAL STATUS WORDS 4 & 5 
8028 3051 18D0 3208 MVB CST13+1,TURESUL+8 MOVE WRAP BYTE IN TURESULS BUFFER 3324+%* ae 48 - 55 .~..-.- BYTE 2 OF CSS WORD 12 (WRAP BYTE) 
4O2B 3040 602A 3209 : TWI X'6O2A', “cst L5 CHECK IF CAP ERROR BIT ON 3325+* 
10ED 3210 JOFF X7A55 NO —- RETURN TO MDI 3326+* RETURN CONTROL 
4ASYI 3211 TBTS R2,25) SET CAP ERROR STATUS BIT ON 3327+* 
6802 0000 3212 TA55 B —* RETURN 3328+* B TURTN* RETURN TO MDI SUPERVISOR 
HA4D 3213 CSER5 fTBTS R2, 13) CYCLE STEAL STATUS EXCEPTION INTR 3329+ 
SOE8 3214 5 a55 RETURN TO MDI 3330 + 14 RR IO ICO RIO IGOR ORI OR IC” OK IG IK I OK I IK a 
3215 * OO036F2 6FO0OD 305A 33314+T7A13 MVW 7,TURIN SAVE RETURN ADDRESS 
3216 * IDCB FOR DIRECT PROGRAM CONTROL COMMAND OO036F6 4020 3018 7A13 3332+ MVWIL X'9A138 $TUID SAVE TU ID FOR DISPLAY 
3217 * OO036FC 4424 3012 3333+ MVA GPTNT. Ri SET UP POINTER ADRS IN R4& 
0000 3218 TVA55L DC X*0000! FUNCTION-MODIFIER-DEVICE ADDRESS 003700 6E03 339C 3334+ BAL $CONC, CLEAR DEV DEP STG AND CONNECT I/0 BL 
0000 3219 DC X*O0000* IMMEDIATE DATA BUFFER 003704 33D0 3335+ DC A SERRE) ERROR ADRS FOR INVALID PREP 
3221 COPY T7AO8 3336+* 
3222 TV7AO0O8 TUIT 003706 D025 18C8 3337 MVDZ TURESUL, rae CLEAR TU RESULTS BUFFER 
3223+ * KR RO oR alo OK dokkoiot totak ak tok kk 06 PEBT] 6 * 00370A D025 18CC 3338 MVDZ TURESUL+4 CLEAR TU RESULTS BUFFER 
3224+* OO37T0E 4224 18C8 3339 MVA eee CR SETUP ADDR OF TURESUL IN REG 2 
3225+* TEST UNIT 003712 4020 3A82 0006 3340 MVWI LBCNT SET UP LOOP COUNT 
3226+%* 003718 6908 3A82 3341 DPATO MVW LPCNT * 
3227+* STORE ERROR HALT CODE, STATUS, AND SENSE BYTES 00371C 6B28 3156 3342 MVW {Rt pPBATA) »23 GET PATTERN TO BE WRITTEN 
3228+* 003720 C328 18C8 3343 MVE 3 £ MOVE PATTERN TO TURESULS 
3229+* PURPOSE 003724 6BOD 338C 3344 MVW R3,10DCB MOVE PATTERN TO 2ND WD OF IDCB 
3230+* 003728 4020 338E 0048 3345 MVWI yi bOuBe TOMOD SETUP WRITE DIAG WD 1 IDCB MOD 
3231+* TO eas ane STORE THE DIAGNOSTIC SENSE BYTE AND DIAG SENSE OO372E 6E03 3214 3346 BAL SWRTO r6 WRTIE DIAG WORD 1 
3232+* BYTES INTO THE TU WORK AREA ('TUWORK'). ALSO STORE ANY 003732 33D0 3347 DC A (SERRS) ABORT TEST IF OIO ERROR 
3233+* ERROR tts CODE PASSED TO THIS TU. 003734 4C21 3348 TBT (R4,ER) EXCEPTION INTERRUPT OCCUR? 
3234+* 003736 1002 3349 JOFF ¥*+6 BYPASS CHECKING STATUS 
3235+* CALLING SEQUENCE 003738 <9£E26 3350 JAL WD1ER,R6 YES - CHECK THE ERROR 
3236+* 00373A YAWYO 3351 TBTS Ae 3h ERROR ON WRITE 
3237+* FETCH SENSE AND SENSE BYTES FROM THE DISK UNIT. 00373C 4020 30EA 2088 3352 MVWI 1268 ', RDDCB LOAD READ DIAG WORD 1 CNTL WD 
3238+* LOAD SENSE BYTES INTO MAIN ne hitp SAVE. STORE ERROR HALT CODE 003742 4020 30F6 0002 3353 MVWI 2,RDDCBt12 SETUP BYTE CNT TO READ WD 1 
3239+%* IF ANY. 003748 4020 30F8 38BA 3354 MVA RDBUF, RDDCB+ 14 SETUP ADDR aro READ BUFFER 
3240+* ao OO374HE 6EO03 3264 3355 BAL SDGRD, R6 READ DIAG WOR 1 
3241+%* MDI=STUXX,T7A08,,,,PLNG=1, PARM=C (C=HALT CODE) 003752 33D0 3356 DC A (SERRS) ABORT TEST IF » oto ERROR 
3242+% 003754 4C21 3357 TBTr (R4, ER) EXCEPTION INTERRUPT OCCUR? 
3243+ TUWORK BITS O-7T.. ecw cccccuce ERROR Coven CODE 003756 1002 3358 JOFF *¥+6 BYPASS CHECKING STATUS 
3244+% 7 B15 oe ow oo ee --~- STATUS YTE 003758 9E16 3359 JAL WD1ER,R6 YES - CHECK THE ERROR 
3245+* = 1623 leeck cee es wcee~e SLNGLE SHOE SENSE BYTES 1 & 2 00375A HAYA 3360 TBTS (R2 15) ERROR ON READ 
3246+ 327 39 os a oe Sia wececee SINGLE SHOT SENSE BYTE 3 00375c 6908 3A82 3361 MVW Lech 1 VERIFY THAT DATA PATTERN READ 
324 7+* 3 OSE To oe wa tre S ores ~-NOT USED 003760 6828 3156 3362 MVW (R1 para), R3 IS AS WRITTEN 
3248+* * 48-63..... sds. tae ee-MULTISAMPLE SENSE BYTES 1 & 2 003764 6BOF 38BA 3363 SW RDEGF, R3 * 
32494 es 6= Tb wes 5 See eevee es MULTISAMPLE SENSE BYTE 3 & 003768 1808 3364 JINZ PAT SET BIT ON IN TURESUL IF DATA ERR 
3250+* - WRAP BYTE OO376A A829 3A84 3A82 3365 SW eEae LPCNT DECREASE LPCNT TO GET NEXT PATTERN 
3251+%* 003770 1AD3 3366 JINN DPATO NO - CONTINUE TEST 
3252+* RETURN CONTROL 003772 C025 18C8 3367 MVBZ TURESUL, RO CLEAR PATTN IN TURESULS IF NO ERRS 
3253+* 3368 X7A13 TXIT RETURN TO MDI 
3254+ B TURTN* RETURN TO MDI SUPERVISOR 003776 6802 3432 3369+X7A13 B S$CONX RETURN TO MDI CONTROLLER 
3255+* 3370 428 ROOK ROR IG IOI II ICRI ICI OI I OI IOI I I IK aK I I kak ak ak ak ke ak akeake ak 
325 64-2 IO IO OI IOI IG III I IORI I II IOI IO IK a i aK ak ak ak akc akc ak 3371 * 
6FOD 305A 3257+T7A08 MVW  R7,TURTN SAVE RETURN ADDRESS 00377A C328 18C8 3372 PAT1 MVB R3, TURESUL SET RESULTS BIT THAT FAILED 
4020 3018 7A08 3258+ MVWI X'7A08" S$TUID SAVE TU ID FOR DISPLAY OO377E 4A4B 3373 TBTS (Re } SET RESULTS BIT ON FOR DATA ERROR 
W424 3012 3259+ MVA OPTN1,R4 SET UP POINTER ADRS IN RG 003780 SEO2 3374 JAL DIER, 6 GET THE STATUS 
6E03 339C 3260+ BAL SCONC,R6 CLEAR DEV DEP STG AND CONNECT I/0 BL 003782 50F9 3375 J X7A13 RETURN TO MDI 
33D0 3261+ DC A (SERRS) ERROR ADRS FOR INVALID PREP 003784 50F8 3376 J X7A13 RETURN TO MDI 
3262+%* 003786 6E0OD 37AA 3377 WDIER MVW R6,TA13+2 SAVE PETURN ADDRESS 
8038 189A 181A 3263 MVB TUPARM1* , TUWORK SAVE ERROR HALT CODE 00378A 6E03 328C 3378 BAL XIOCS P6 GET CYCLE STEAL STATUS 
6E03 328C 3264 BAL XIOCS, R6 GET CYCLE STEAL STATUS OO0378E 33D0 3379 DC A (SERR$) ABORT TEST IF ERROR 
33D0 3265 DC A (SERRS) ABORT ON ERROR 003790 4C21 3380 TBT ie ER) EXCEPTION INTR OCCUR? 
8028 3043 181B 3266 MVB CSTL64+1,TUWORK+1 SAVE THE SENSE IN TUWORK 003792 1210 3381 JON SERO YES - SS INTR ERROR BIT ON 
9028 3040 181C 3267 MVD CSTL5 TOWORK+2 SAVE THE STATUS WORDS 002794 9028 3040 18CA 3382 MVD CSTL5,TURESUL+2 MOVE CS STATUS WDS 4 & 5 IN TU BOF 
4020 338E 0055 3268 MVWI xX*0055*, TOMOD LOAD SINGLESAMPLE PULSE IDCB CMD WD 00379A 8028 3051 18CE 3383 MVB CST13+1,TURESUL+6 MOVE WRAP BYTE IN TURESULS BUFFER 
6E03 3214 3269 BAL SWRTO R6 EXECUTE SINGLESAMPLE PUSLE TEST 0037A0 4O02B 3040 602A 3384 TWI X'602A",CSTLS CHECK IF CAP ERROR BIT ON 
33D0 3270 DC A (SERRS) ABORT TEST IF ERROR 0037A6 1002 3385 JOFF TAI3A NO - RETURN 
4UCAT 3271 TBTR $ 4 aS WAS THERE AN EXCEPTION INTERRUPT? 0037A8 6802 Q000 3386 TA13 B *— * RETURN 
6E03 328C 3272 BAL toés 6 GET CYCLE STEAL STATUS OO37AC 4029 37AA 0002 3387 TA13A AWI 2,TA13+2 BYPASS SETTING ERROR 
33D0 3273 DC A(SERRS) ABORT ON ERROR 0037B2 50FA 3388 J TA13 
9028 304E 1820 3274 MVD CST12,TUWORK+6 SAVE THE DIAG. SENSE BYTES 0037B4 GA4UD 3389 CSERO TBTS {Re 13) CYCLE STEAL STATUS EXCEPTION INTR 
4020 338E 0056 3275 MVWI X'00568 IOMOD LOAD MULTISAMPLE PULSE IDCB CMD WD 0037B6 SODF 3390 J 74413 RETURN TO MDI 
6EO03 3214 3276 BAL SWRTO R6 EXECUTE MULTISAMPLE PUSLE TEST 3391 * 
33D0 3277 DC A (SERRS) ABORT TEST IF ERROR 0037B8 0000 3392 TRKNO DC Ue bag 
GCA 3278 TBTR : 4 ER) WAS THERE AN EXCEPTION INTERRUPT? OO37BA 3393 WRBUF DS 128F 
4020 338E 0057 3279 MVWI 10057 TOMOD LOAD WRAP BYTE IDCB CM WD OO38BA 3394 RDBUF DS 128F 
6E03 3214 3280 BAL SWRTO R6 FETCH WRAP EYTE 3396 COPY T7A14 15MART78 
33D0 3281 DC A $SERR$) ABORT TEST IF ERROR 3397 T7A14 TUIT 
UCAI 3282 TBTR 4 BR) WAS THERE AN FXCEPTION INTERRUPT? 3398 4% II IO IO RRO aR a CKCK 06 FEBT 6** 
6E03 328C 3283 T7A88 BAL IOCS, R6 GET CYCLE STEAL STATUS 3399+* 
33D0 3284 DC A (SERR$) ABORT ON ERROR 3400+* TEST UNIT 
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3401+* 3516+* . 
Bae FCB TEST Sea pee MDI=S$TUXX,'T7A18,02, XXXX ,EQ, PLNG=XX ,PARM=XXXX/XXXX...' 
+ - 
3404+* PURPOSE 3519+* TURESUL BIT(S) 0 - 15 ..... FCB 0 WORD 4 DATA WORD 
3405+* 3520+* 
3406+* VERIFY THAT ALL FCB WORDS CAN BE WRITTEN WITHOUT ERRORS. 3521+* RETURN CONTROL 
3407+* WRITE TWO FCB WORDS WITH THE FOLLOWING PATTERN X!'FFFF!. 3522+* 
3408+* CHECK FOR NO CAP ERRORS THEN CHECK THE WORDS WRITTEN 3523+* B TURTN* RETURN TO MDI SUPERVISOR 
3409+* TO DETERMINE IF WORDS WERE WRITTEN CORRECTLY. 3524+% 
3410+% Soe eS eae tr cer eneet een ee tee eae Cer eree ter eese ees 
3411+* CALLING SEQUENCE Q003A86 6F0OD 305A 3526+T7A18 MVW SAVE RETURN ADDRESS 
3412+* OO3A8A 4020 3018 7A18 3527+ MVWI Raaqere $TUILD SAVE TU ID FOR DISPLAY 
3413+* MDI=$TUXX, ‘T7A14,02,0000,EQ! 003A90 4424 3012 3528+ MVA OPT NT 7 Ri SET UP POINTER ADRS IN R4& 
3414+* 0O03A94 6E0O3 339C 3529+ BAL $CONC, CLEAR DEV DEP STG AND CONNECT 1/0 BL 
3415+* TURESULS BIT(S) 0 - 7 ..--- DATA PATTERN IN USE IF ERROR 003A98 33D0 3530+ DC A (SEEKS) ERROR ADRS FOR INVALID PREP 
3416+%* . 8 ...-- DISK UNIT PARITY CH 3531+* 
3417+* ‘ 9 ..e+- ERROR ON WRITE TO F OO3A9A C825 18C8 3532 MVWZ aan CLEAR RESULTS AREA 
3418+% - 10 ..... ERROR ON READ TO ies 3533 * 
3419+%* = 11 ...-.. DATA COMPARE EeeO OO3A9E 4020 338E 0049 3534 MVWI "0049", TOMOD LOAD DIAG WD 2 IDCB MODIFIER 
3420+* 3 12 «22... CS STATUS ERRO 12 - WORD 4) OO3AA4 4020 338C 0008 3535 MVWI 0008", IODCB SET CAP TO DIAG INSTR & CNTRL MODE 
3421+%* n 13) 26se0)/€S STATIS 10 CNT BRUT ERROR OO3AAA 6E03 3214 3536 BAL $HRTO R6 WRITE CAP DIAGNOSTIC WORD 2 
3422+* e VHS NG sce ee NOT USED OO3AAE 33D0 3537 DC A (SERR$) ABORT TEST IF I/O ERROR 
3423+* ° 16 - 47 ....- CYCLE STEAL STATUS WORDS 4 & 5 OO3ABO 4C21 3538 TBT a, EF) TEST FOR ERROR 
3424+ z 48 - 55 ..... BYTE 2 OF CSS WORD 12 (WRAP BYTE) QOO3AB2 1001 3539 JOFF +4 BYPASS ERROR CHECK 
Eee A 64 - 79 ..... ERROR DATA WORD OO3AB4 9E3F ene _ JAL Ti8ER, R6 EXIT ON ERROR 
+ 
3427+* RETURN CONTROL OO3AB6 6818 189A 3542 MVW TUPARM1* GET NO. OF COMMANDS IN TABLE 
3428+* OO3ABA 6A08 189C 3543 MVW see onet 3° GET ADDR OF COMMAND TABLE 
3429+%* B TURTN* RETURN TO MDI SUPERVISOR OO3ABE 3009 3544 SLL RO COMPUTE ADDRESS OF LAST ENTRY 
3430+* 003ACO 7208 3545 AW re, RO * OF COMMANDS IN TABLE 
363 14 ORO OO KC lok ok gatoiioiok kd k kik dato i tok tek fc kok ok O0OO03AC2 680D 3B96 3546 MVW LCMMD SAVE IT 
0039BA 6F0OD 305A 3432+T7A14 MVW R7, TURTN SAVE RETURN ADDRESS 003AC6 C890 3547 INSTR MVW toh RO GET COMMAND TO XEQ IN SINGLE MODE 
OO39BE 4020 3018 7A14 3433+ MVWI X' ATK STUID SAVE TU ID FOR DISPLAY OO3AC8 700D 3548 VR INVERT COMMAND 
0039C4 4424 3012 3434+ MVA OPTN1, RG SET UP POINTER ADRS IN R4 OO3ACA 680D 338C 3549 MVW CB LOAD COMMAND IN 2ND WORD OF IDCB 
0039C8 6E03 339C 3435+ BAL $CONC, R6 CLEAR DEV DEP STG AND CONNECT I/0 BL QOO3ACE 4020 338E 0048 3550 MVWI . "60088 TOMOD LOAD WRITE DIAG ne 1 IDCB MODIFIER 
0039CC 33D0 3436+ DC A (SERRS$) ERROR ADRS FOR INVALID PREP OO3AD4 6803 3214 3551 BAL $WRTO,R6 WRITE DIAG WORD 
3437+* 003AD8 33D0 3552 DC A (SERRS) ABORT TEST IF T/0 ERROR 
0039CE D025 18C8 3438 MVDZ TURESUL,RO CLEAR TU RESULTS BUFFER QOO3ADA 4C21 3553 TBT (R4,ER) TEST FOR ERROR 
0039D2 )p025 18CC 3439 MVDZ TURESUL+4, RO CLEAR TU RESULTS BUFFER OO3ADC 1001 3554 JOFF *+4 BYPASS ERROR CHECK 
0039D6 4224 18C8 3440 MVA TURESUL, R2 SETUP ADDR OF TURESUL IN REG 2 OO3ADE 9QE2A 3555 JAL T18ER, R6 EXIT ON ERROR 
0039DA 4020 30D8 37BA 344] MVA WRBUF WRDCB+14 GET DATA PATTERN ADDRESS OO3AEO 9E41 3556 JAL WRISN,R6 WAIT FOR CONTROLLER CYCLE COMPLETE 
O0039EO0 4020 30D6 0020 3442 MVWI 32 WRDCB+12 SETUP BYTE CNT TO WRITE FCB OO3AE2 CA24 3B96 3557 CW LCMMD, ‘R2 HAVE ALL COMMANDS BEEN EXECUTED? 
0039E6 4020 30CA 0020 3443 MVWI x'6020' ,WRDCB LOAD WRITE FCB DCB CNTL WORD OO3AE6 18EF 3558 JNE INSTR’ NO —- GO EXECUTE NEXT COMMAND 
0039EC 4324 1212 3444 DPAT MVWI X¥'1212!',R3 SET PATTERN TO BE WRITTEN 3559 * 
O039FO C328 18C8 3445 MVB R3, TURESUL MOVE PATTERN TO TURESULS OO3AE8 4020 338C FF82 3560 MVWI X'FF82',IODCB LOAD 2ND WORD CF IDCB 
O039F4 OF20 3446 MVBI 32,R7 SETUP NUMBER OF BYTES TO INITIALIZE OO3AEE 4020 338E 0048 3561 MVWI xX*0048'*,IOMOD LOAD WRITE DIAG WD 1 IDCB MODIFIFR 
0039F6 4524 37BA 3447 MVA WRBUF,RS GET ADDRESS OF WRITE BUFFER OO3AF4 6E03 3214 3562 BAL SWRTO, RO WRITE DIAGNOSTIC WORD 1 
0039FA 2BAC 3448 FFN R3 (B93) INITIALIZE WRITE BUFFER WITH PATTERN OO3AF8 33D0 3563 DC A (SERR$S) ABORT TEST IF I/O ERROR 
0039FC 4020 37CE FFFF 3449 MVWI X'f FF! ,WRBUF+20 LOAD WRITE BUFFER WORD PATTERN OO3AFA 4C21 3564 TBT (R4,ER) TEST FOR ERROR 
O003A02 4020 37D0 FFFF 3450 MVWI X'FFFF! ,WRBUF+22 LOAD WRITE BUFFER WORD PATTERN OO3AFC 1001 3565 JOFF *+¥4 BYPASS ERROR CHECK 
003A08 6E03 325A 3451 BAL SDGWR,R6 WRITE ALL WORDS OF FCB OO3AFE QEI1A 3566 JAL TI8ER,R6 EXIT ON ERROR 
QOO3A0C 33D0 3452 DC A (SERRS) ABORT TEST IF OIO ERROR 003B00 9E31 3567 JAL WRISN, R6 WAIT FOR CONTROLLER CYCLE COMPLETE 
OO3AQ0E 4C21 3453 TBI (R4,ER) EXCEPTION INTERRUPT OCCUR? 3568 * 
003A10 1002 3454 JOFF ¥*+6 BYPASS CHECKING STATUS 003B02 4020 338E 0049 3569 MVWI X'0049",TOMOD LOAD DIAG WD 2 IDCB MODIFIER 
O0OO03A12 YQEIE 3455 JAL CAPER,R6 YES - CHECH THE ERROR 003B08 4020 338cC 0000 3570 MVWI x*0000',IODCB SET CAP TO ACTIVE MODE 
003414 4aA49 3456 TBTS R2,95 ERROR ON WRITE TO FCB 003BOE 6E£03 3214 3571 BAL $WRTO,R6 WRITE CAP DIAGNOSTIC WORD 2 
003A16 6E03 328C 3457 BAL IOCS,R6 GET CYCLE STEAL STATUS 003B12 33D0 3572 DC A (SERRS) ABORT TEST IF I/O ERROR 
OO03A1A 33D0 3458 DC A (SERRS) ABORT TEST IF ERROR 003B14 4C21 3573 TBT (R4,ER) TEST FOR ERROR 
OO0O3A1C 4C21 3459 TBT R4,ER) EXCEPTION INTR OCCUR? 003B16 1001 3574 JOFF *+4 BYPASS ERROR CHECK 
OO0O3A1E 122F 3460 JON SSER YES - SET CSS INTR ERROR BIT ON 003B18 9EOD 3575 JAL TI8SER,R6 EXIT 
003A20 712A 3461 SW R1,R1 CLEAR REG 1 003B1A 4024 OOFF 3576 MVAI X'OOFF', RO DELAY LOOP 
0OO03A22 4524 37D0 3462 VA WRAUF+22,R5 SET THE READ ADDRESS 003B1E 6003 3577 TI8LP SVC IDLES * 
003A26 OFQ2 3463 MVBI 2,R7 VERIFY THAT 2 WORDS OF THE 003B20 B8FE 3578 JCT TI8LP,R0O * 
003A28 4324 3048 3464 MVA c§TL9,R3 * FCB OF THE SELECTED FILE 3579 * 
Q003A2C 8DD7 3465 L7A14 CW Eyes (BD)? * WERE WRITTEN WITH THE FF'S 003B22 6E03 328C 3580 BAL XIOCS, R6 GET CYCLE STEAL STATUS 
OO03A2E 1806 3466 JNE CRER SET BIT ON IN TURESUL IF DATA ERR 003B26 33D0 3581 DC A (SERR$) ABORT TEST IF ERROR 
003A30 O7FF 3467 ABI ~1,R7 * 003B28 4C21 3582 TBT Ana ER) EXCEPTION INTR OCCUR? 
03834 C055 18C8 ertt: NV BZ bids RO CLEAR PATTN IN TURESULS IF NO ERRS MEETS 8926 3046 18C8 3287 YN TA1SA TURESUL SRYE FCH O Roo eek Pon eustTSi 
; SAVE FCB O WD 7 IN 'TURESULSS 
3470 X7A14 TXIT RETURN TO MDI 003B32 5016 3585 J TIBEX ’ % 
003A38 6802 3432 3471+X7A14 B SCONX RETURN TO MDI CONTROLLER 3586 * 
3072 4 RR OIG II FOI I SR I ki ok kok ake ate ok 003B34 6E0D 3B58 3587 TI8ER MVW R6 neces SAVE RETURN ADDRESS 
3473 * 003B38 6E03 328C 3588 BAL x16cs GET CYCLE STEAL STATUS 
O03A3C 4AU4YB 3474 FCBER TBTS R2,11 SET RESULTS BIT ON FOR DATA ERROR 003B3C 33D0 3589 DC A (SERRE) ABORT TEST IF ERROR 
QOO3A3E ADEQ FFFE FFFE 3475 SW Eoes2 “Aun a}: * OO3B3E 4C21 3590 TBL Ae ER) EXCEPTION INTR OCCUR? 
OO3A44 8B28 FFFE 18D0 3476 MVW URES +8 * 003B40 120C 3591 JON A18A YES - SET CSS INTR ERROR BIT ON 
OO3A4A 9EO2 3477 JAL René GET THE STATUS 003B42 9028 3040 i8CA 3592 MVD CSTLS, TURESUL+2 MOVE CS STATUS WDS 4 & 5 IN TU BUF 
003A4C 50F5 3478 J X7A 14 RETURN TO MDI 003B48 8028 3051 18CE 3593 MVB CST13+1,TURESUL+6 MOVE WRAP BYTE IN TURESULS BUFFER 
OO3A4E S5OFY4 3479 J X7A14 RETURN TO MDI OO3B4E 402B 3040 4O2A 3594 TWI X'*4O2A",CSTL5 CHECK IF CAP ERROR BIT ON 
003A50 6EOD 3A74 3480 CAPER MVW R6,TAI4+42 SAVE THE RETURN 003B54 1202 3595 JON TAI8A YES SET ERROR 
003A54 6E03 328C 3481 BAL XIOCS,R6 GET CYCLE STEAL STATUS 003B56 6802 Q000 3596 TA18 B *— RETURN 
003A58 33D0 3482 DC A (SERRS) ABORT TEST IF ERROR O0OO0O3B5A 4020 18C8 FFFF 3597 TA18A MVWI X*FFFF",TURESOUL SET RESULTS TO FF 
OO3A5A 4C21 3483 TBT 4, ER) EXCEPTION INTR OCCUR? 3598 T18EX TXIT 
003A5C 1210 3484 JON SSER YES SET CSS INTR ERROR BIT ON 003B60 6802 3432 35994+T18EX B SCONX RETURN TO MDI CONTROLLER 
OO3A5E 9028 3040 18CA 3485 MVD CSTL5, TURESUL+42 MOVE CS STATUS WDS 4 & 5 IN TU BUF JOOO + 8% OK RI III OIC IO I OIG ok a a ok i ak kok aa ak 
00O3A64 8028 3051 18CE 3486 MVB CST13+1,TURESUL+6 MOVE WRAP BYTE IN TURESULS BUFFER 3601 * 
QOO3A6A 402B 3040 602A 3487 TWI X'602A',CSTL5 CHECK CAP ERROR BITS 003B64 6E0D 3B94 3602 WRTSN MVW R6, RETRN+2 SAVE RETURN ee 
003A70 1002 3488 JOFF TAI4A NO - RETURN 003B68 4020 338C OOOE 3603 MVWI x'600E', IODCR LOAD 2ND WORD OF ID 
0O03A72 6802 0000 3489 TA14 B *—% RETURN OO3B6E 4020 338E 0049 3604 MVWI xX'0049",TOMOD LOAD WRITE DIAG WD 5° aoe MODIFIER 
003A76 4029 3A74 0002 3490 TAI4A AWI 2,TAI4+#2 SET ERROR 0OO03B74 6E03 3214 3605 BAL $WRTO, RO WRITE DIAGNOSTIC WORD 2 
OO3A7C SOFA 3491 J pA14 RETURN 003B78 33D0 3606 DC A (SERRS) ABORT TEST IF I/0 ERROR 
OO3A7E 4A4D 3492 CSSER TBTS E2013) CYCLE STEAL STATUS EXCEPTION INTR OO3B7A 4C21 3607 TBT (R4, ER) TEST FOR ERROR 
003A80 50DB 3493 J TAG RETURN TO MDI OO0O3B7C 1001 3608 JOFF *+¥4 BYPASS ERROR CHECK 
3494 x OO3B7E 9EDA 3609 JAL T1I8ER,R6 EXIT OK 
003A82 0006 3495 LPCNT DC X*OOQ06! PATTERN LPCNT 003B80 4020 30EA 2089 3610 MVWI X'2089', RDDCB LOAD READ DIAG WD 2 DCB CNTL WD 
OO03A84 0002 3496 TWO2 DC x*0002' DECIMAL NUMBER 2 003B86 4020 30F6 0002 3611 MVWI 2,RDDCB+12 LOAN BYTE COUNT 
3498 COPY T7418 26APR78 003B8C 4020 30F8 38BA 3612 MVA RDBUF, RDDCB+14 LOAD ADDRESS OF DATA BUFFER 
3499 T7A18 TULT 3613 *CCC BAL SDGRD, R6 READ DIAGNOSTIC WORD 2 
3500 + 0k CR RG ORK RoR ak ak ick lok loleiok took tekok 6 FEB] 6% * 3614 * pc A (SERRS) ABORT TEST IF 1/0 ERROR 
35014+* 3615 * TBT (R4 ,ER) TEST FOR ERROR 
3502+* TEST UNIT 3616 * JOFF *+4 BYPASS ERROR CHECK 
3503+* 3617 * JAL TISER,R6 EXIT OK 
3504+* SINGLE INSTRUCTION MODE CHECK 3618 * TWI X'0016", RDBUF CHECK FOR 'CONTRLLR CYCLE COMPLETE! 
3505+* 3619 * JOFF WCCC WAIT TILL "CONTRLLR CYCL 
320649 PURPOSE 003B92 6802 0000 sony RETRN B *—% RETURN TO CALLER 
+ 
3508+* TO VERIFY THAT THE CAP ACCUMULATOR AND FILE CONTROL BLOCK 003B96 0000 3622 LCMMD DC A (*-* ADDR OF LAS 
320 0t% CAN BE WRITTEN/READ. 3623 COPY T7430 06 JUNTS poe senagerigy wegen 
3510+* 3624 T7A30 TUIT 
See pa CALLING SEQUENCE SOC Re Tarn Tene eT ne ree te ee Tee See ees a nee eee et Rese eS eee OCR ERGs ® 
+ 
3513+* EXECUTE COMMANDS IN SINGLE INSTRUCTION MODE. 3627+* TEST UNIT 
35144+%* READ FCB 0 WORD 3628+* 
3515+* PASS DATA WORD READ FROM FCB O WORD 4 TO TO TURESULS. 3629+%* SINGLE INSTRUCTION MODE CHECK 
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3630+* 3744+ z 
3631+* PURPOSE 3745+* TURESUL BIT(S) 0 - 7 ....-. FCB 0 WORD O DATA WORD 
3632+* 3746+ 
3633+* TO VERIFY THAT THE CAP ACCUMULATOR AND FILE CONTROL BLOCK 3747+* RETURN CONTROL 
3634+ CAN BE WRITTEN/READ. 3748+* 
3635+* 37494+* B TURTN* RETURN TO MDI SUPERVISOR 
3636+* CALLING SEQUENCE 3750+* 
3637+* 375 1+ RK KK KO OR RK IK RK IIR OR IK tk gtok ko kok ok 
3638+* EXECUTE COMMANDS IN SINGLE INSTRUCTION MODE. 003C60 6F0OD 305A 3752+T7A31 MVW R7,TURTN SAVE RETURN ADDRESS 
3639+* READ FCB 0 WORD 4. 003C64 4020 3018 7A31 3753+ MVWI X'7A31", $TUID SAVE TU ID FOR DISPLAY 
3640+* PASS DATA WORD READ FROM FCB O WORD 4& TO TO TURESULS. OO3C6A 4424 3012 3754+ MVA OPTN1, R4 SET UP POINTER ADRS IN RY 
3641+ O003C6E 6£E03 339C 3755+ BAL $CONC, R6 CLEAR DEV DEP STG AND CONNECT I/0 BL 
3642+* MDI=S$TUXX 654830 0000 PLNG=XX ,PARM=CCCC/DDDD....' 003C72 33D0 3756+ DC A (SERR$) ERROR ADRS FOR INVALID PREP 
3643+* : c= Count Of rata WORDS PASSED, D= DATA WORDS. 3757+* 
36444% S 003C74 C825 18C8 3758 MVWZ MTURESUL,RO CLEAR RESULTS AREA 
3645+* TURESUL BIT(S) 0 - 7 ....e. FCB 0 WORD 4 DATA WORD 3759 * 
3646+ 003C78 4020 338E 0049 3760 MVWI X'0049",ITOMOD LOAD DIAG WD 2 IDCB MODIFIER 
3647+* RETURN CONTROL 003C7E 4020 338C 0808 3761 MVWI X*'0808'.IODCB SET CAP TO DIAG INSTR & CNTRL MODE 
3648+ 003C84 6E£03 3214 3762 BAL $WRTO, RO WRITE CAP DIAGNOSTIC WORD 2 
3649+* B TURTN* RETURN TO MDI SUPERVISOR 003C88 33D0 3763 DC A (SERR$) ABORT TEST IF I/O ERROR 
3650+4+* Q0O3C8A 4C21 3764 TBT (Be ER) TEST FOR ERROR 
Seog a patna a ee eee en newer en sehen 003C8C 1228 3765 JON 31£R EXIT IF ON 
003B98 6FOD 305A 3652+T7A30 MVW R7,TURTN SAVE RETURN ADDRESS 3766 * 
003B9C 4020 3018 7A30 3653+ MVWI KFA 308 $TUID SAVE TU ID FOR DISPLAY O0OO03C8E 6818 189A 3767 MVW TUPARM1*, RO GET NO. OF COMMANDS IN TABLE 
OO3BA2 4424 3012 3654+ MVA OPTN1,R Rh SET UP POINTER ADRS IN RG 003C92 6A08 189C 3768 MVW TUPARM2, R2 GET ADDR OF COMMAND TABLE 
0OO3BA6 6E03 339C 3655+ BAL SCONC CLEAR DEV DEP STG AND CONNECT I/0 BL 003C96 3009 3769 SLL 1,R0 COMPUTE ADDRESS OF LAST ENTRY 
OO3BAA 33D0 3656+ DC AYSERRS) ERROR ADRS FOR INVALID PREP 003C98 7208 3770 AW R2,RO * OF COMMANDS IN TABLE 
3657+* OO3C9A 680D 3D16 3771 MVW RO,LCMM1 SAVE IT 
OO3BAC C825 18C8 3658 MVWZ TURESUL,RO CLEAR RESULTS AREA 003C9E C890 3772 INSTR1 MVW (R2) #,RO GET COMMAND TO XEQ IN SINGLE MODE 
3659 * 003CA0 700D 3773 VR 0 INVERT COMMAND 
003BB0 4020 338E OO4F 3660 MVWI X'OOUFt, ITOMOD SET CAP RESET 003CA2 680D 328C 3774 MVW RO, 1IODCB LOAD COMMAND IN 2ND WORD OF IDCB 
OO03BB6 6E03 3214 3661 BAL $WRTO R6 WRITE CAP DIAGNOSTIC WORD 2 OO3CA6 4020 338E 0048 3775 MvWri X'6048*,1TOMOD LOAD WRITE DIAG WD 1 IDCB MODIFIER 
OO3BBA 33D0 3662 DC A(SERR$) ABORT TEST IF I/O ERROR OO3CAC 6E03 3214 3776 BAL SWRTO, RO WRITE DIAG WORD 1 
OO3BBC 4C21 3663 TBT { 4 ,ER) TEST ERROR 003CBO0 33D0 3777 DC A (SERRS) ABORT TEST IF I/O ERROR 
OO3BRE 1233 3664 JON 30fR EXIT IF ON 0O03CB2 4C21 3778 TBT X 4, ER) TEST FOR ERROR 
3665 * 003CB4 1214 3779 JON 316R EXIT IF ON 
003BCO 4020 338E 0049 3666 MVWI xX'O00O49*, TOMOD LOAD DIAG WD 2 IDCB MODIFIER 003CB6 9E17 3780 JAL WRTS1, R6 WAIT FOR CONTROLLER CYCLE COMPLETE 
003BC6 4020 338C 0008 3667 MVWI xX'0008',IODCB SET CAP TO DIAG INSTR & CNTRL MODE OO3CB8 CA24 3D16 3781 CW LCMM1, R2 HAVE ALL COMMANDS BEEN EXECUTED? 
0O03BCC 6803 3214 3668 BAL $WRTO, RO WRITE CAP DIAGNOSTIC WORD 2 003CBC 18FO 3782 JNE INSTR 4 NO - GO EXECUTE NEXT COMMAND 
003BD0 33D0 3669 DC A(SERRS) ABORT TEST IF I/O ERROR 3783 * 
0OO3BD2 4C21 3670 TBT { 4, ER) TEST ERROR 0O03CBE 4020 338C FFFF 3784 MVWI X'FFFFt,IODCB LOAD 2ND WORD OF IDCB 
OO3BD4 1228 3671 JON 30ER EXIT IF ON 003CC4 4020 338E 0048 3785 MVWI X*0048!,TOMOD LOAD WRITE DIAG WD 1 IDCB MODIFIFR 
3672 * OO3CCA 6503 3214 3786 BAL SWETO, RO WRITE DIAGNOSTIC WORD 1 
003BD6 6818 189A 3673 MVW TUPARM1*, RO GET NO. OF COMMANDS IN TABLE OO03CCE 33D0 3787 DC A (SERR$) ABORT TEST IF I/O ERROR 
OO3BDA 6A08 189C 3674 MVW TUPARM2,R2 GET ADDR OF COMMAND TABLE 003CDO 4C21 3788 TBT fae ER) TEST FOR ERROR 
OO3BDE 3009 3675 SLL 1,R0 COMPUTE ADDRESS OF LAST ENTRY 003CD2 1205 3789 JON 31ER EXIT IF ON 
003BEO 7208 3676 AW R2, RO * OF COMMANDS IN TABLE OO03CD4 9ED8 3790 JAL WRIS1,R6 WAIT FOR CONTROLLER CYCLE COMPLETE 
0O3BE2 680D 3C5E 3677 MVW RO, LCMMO SAVE IT 3791 * 
003BE6 C890 3678 INSTO MVW (R2) +, RO GET COMMAND TO XEQ IN SINGLE 4ODE 003CD6 4020 18C8 0000 3792 T7A3E1 MVWI X*0000', TURESUL SET GOOD 'TURESULS! 
0O3BE8 700D 3679 VR 0 INVERT COMMAND 003CDC 5002 3793 J T31EX 
OO3BEA 680D 338C 3680 MVW RO, IODCB LOAD COMMAND IN 2ND WORD OF IDCB O03CDE 6802 33D0 3794 T31ER B SERRS ABORT IF ERROR 
OO3BEE 4020 338EF 0048 3681 MVWI x'6048*", tOMOD LOAD WRITE DIAG RD 1 IDCB MODIFIER 3795 T31EX MTXIT 
OO3BF4 6£E03 3214 3682 BAL $WRTO, RO WRITE DIAG WORD 003CE2 6802 3432 37964+T31EX B $CONX RETURN TO MDI CONTROLLER 
OO3BF8 33D0 3683 DC A (SERRS) ABORT TEST IF a0 ERROR 378TH HK HH HK HH HK He He He He a RC EK 2K 2K CK CK 2 i 2 2 2 i 2k 2 2 a kK Ki fc ake ak ak ake ake ake ac ae fe 2 a ai ae akc oc aka a afc 2 
OO3BFA 4C21 3684 TBT x 4, ER) TEST ERROR 3798 * 
OO3BFC 1214 3685 JON 30ER EXIT IF ON 0O03CE6 6E0OD 3D14 3799 WRTS1 MVW R6,RETR1+2 SAVE RETURN ADDRESS 
OO3BFE 9817 3686 JAL WRTSO,R6 WAIT FOR CONTROLLER CYCLE COMPLETE OO3CEA 4020 338C O80E 3800 MVWI xX'O80R',IODCB LOAD 2ND WORD OF IDCB 
003C00 CA24 3C5E 3687 CW LCMMO, R2 HAVE ALL COMMANDS BEEN EXECUTED? 003CFO 4020 338E 0049 3801 MVWI xX*0049* TOMOD LOAD WRITE DIAG WD 2 IDCB MODIFIER 
003C04 18F0 3688 JNE INSTO . NO - GO EXECUTE NEXT CCMMAND OO3CF6 6E03 3214 3802 BAL $WRTO,RO WRITE DIAGNOSTIC WORD 2 
3689 * OO3CFA 33D0 3803 DC A (SERRS) ABORT TEST IF I/O ERROR 
003C06 4020 338C FFFF 3690 MVWI X'FFFF',IODCB LOAD 2ND WORD OF IDCB OO3CFC 4C21 3804 TBT c 4 , ER) TEST FOR ERROR 
003C0C 4020 338E 0048 3691 MVWI xX'0048!,IOMOD LOAD WRITE DIAG WD 1 IDCB MODIFIER OO3CFE 12EF 3805 JON 31£R EXIT IF ON. 
003C12 6£8&03 3214 3692 BAL SWRTO, RO WRITE DIAGNOSTIC WORD 1 003D00 4020 30EA 2089 3806 MVWI xX*'2089',RDDCB LOAD READ DIAG WD 2 DCB CNTL WD 
003C16 33D0 3693 DC A (SERRS) ABORT TEST IF I/O ERROR 003D06 4020 30F6 0002 3807 MVWI 2,RDDCB+12 LOAD BYTE COUNT 
003C18 4C21 3694 TBI i 4 , ER) TEST ERROR 003D0C 4020 30F8 38BA 3808 MVA ROBUF, RDDCB+ 14 LOAD ADDRESS OF DATA BUFFER 
0O03C1A 1205 3695 JON 30ER EXIT IF ON 3809 *CcC1 BAL SDGRD, R6 READ DIAGNOSTIC WORD 2 
003C1C 9£E08 3696 JAL WRTSO,R6 WAIT FOR CONTROLLER CYCLE COMPLETE 3810 * DC A(SERRS) ABORT TEST IF I/O ERROR 
3697 * 3811 * TBT { 4, ER) TEST FOR ERROR 
00O3C1E 4020 18C8 0000 3698 T7AOE MVWI X*'0000', TURESUL SET GOOD 'TURESULS' 3812 * JON 31ER EXIT IF ON 
003C24 5002 3699 J T30 EX 3813 * TWI X¥'0010", RDBUF CHECK FOR 'CONTRLLR CYCLE COMPLETE! 
003C26 6802 33D0 3700 T30ER B SERRS ABORT IF ERROR 3814 * JOFF wcci WAIT TILL "CONTRLLR CYCL 
3701 T30EX TXIT 003D12 6802 0000 3815 RETR1 B *— RETURN TO CALLER 
003C2A 6802 3432 3702+T30EX B SCONX RETURN TO MDI CONTROLLER 3816 * 
ZT O39 + KKK RK KK KE III IC II I ik ak ka a ia ak ako 003D16 0000 3817 LCMM DC A (*-*) ADDR OF LAST CMD IN TABLE 
3704 * 3818 COPY T7A32 O6JUN78 
003C2E 6E0D 3Cc5C 3705 WRTSO MVW R6,RETRO+F2 SAVE RETURN ADDRESS 3819 T7A32 TUIT 
003C32 4020 338C OOOR 3706 MVWI X'OOOE', TODCB LOAD 2ND WORD OF IDCB 3820 426% 2 OO IO OOO OR IRC a a iC aio dda 440K 06 FEB] 6** 
003C38 4020 338E 0049 3707 MVWI xX*00O49!, TOMOD LOAD WRITE DIAG WD 2 IDCB MODIFIER 3821+* 
003C3E 6E03 3214 3708 BAL $WRTO,RO6 WRITE DIAGNOSTIC WORD 2 3822+* TEST UNIT 
003C42 33D0 3709 DC A(SERRS) ABORT TEST IF I/O ERROR 3823+* 
OO03C44 4C21 3710 TBT i 4, ER) TEST ERROR 3824+ SINGLE INSTRUCTION MODE CHECK 
003C46 12EF 3711 JON 30£R EXIT IF ON 3825+* 
003C48 4020 30EA 2089 3712 MVWI X'2089',RDDCB LOAD READ DIAG WD 2 DCB CNTL WD 3826+* PURPOSE 
OO3CHE 4020 30F6 0002 3713 MVWI 2,RDDCBt12 LOAD BYTE COUNT 3827+* 
003C54 4020 30F8 38BA 3714 MVA RDOBUF, RDDCB+14 LOAD ADDRESS OF DATA BUFFER 3828+* TO VERIFY THAT THE CAP ACCUMULATOR AND FILE CONTROL BLOCK 
3715 *CCO BAL $DGED, R6 READ DIAGNOSTIC WORD 2 3829+* CAN BE WRITTEN/READ. 
3716 * DC A (SERRS) ABORT TEST IF I/O ERROR 3830+* 
3717 * TBT c 4 ,ER) TEST ERROR 3831+* CALLING SEQUENCE 
3718 * JON 30ER EXIT IF ON 3832+* 
3719 * TWI X¥'*0010',RDBUF CHECK FOR 'CONTRLLR CYCLE COMPLETE! 3833+* EXECUTE COMMANDS IN SINGLE INSTRUCTION MODE. 
3720 * JOFF wWCcco WAIT TILL 'CONTRLLR CYCL 3834+* READ FCB O WORD 4. 
003C5A 6802 0000 ag24 RETRO B *—% RETURN TO CALLER ae PASS DATA WORD READ FROM FCB O WORD 4 TO TO TURESULS. 
003C5E 0000 3723 LCMMO DC A (*#-*) ADDR OF LAST CMD EN TABLE 3837+* MDI=$TUXX, 'T7A32,02,8000,0F* 
3724 COPY T7A31 O6JUN78 3838+* * 
3725 T7A31 TUIT 3839+* TURESUL BIT(S) 0 - 7 ...... FCB 0 WORD 4 DATA WORD 
3726 FE KKK KEK KE KKK HK KK KK KK KE ROR RR ko Rk kok kok dokok eke kK 06 PERT 6* * 3840+* 
3727+* 3841+* RETURN CONTROL 
345948 SL 3B45%% B TURTN* 
: + RT RETURN TO MDI SUPERVISOR 
3730+* SINGLE INSTRUCTION MODE CHECK 3844+ 
37314* Ceci Grete LS SETS ST SSE TE SESS SS ST TST SSS SS SSS SS SST PCC eT SSC TCS SSC SCSS#CC STC SST SES TS SS Ss 
3732+* PURPOSE 003D18 6FOD 305A 3846+T7A32 MVW ay TURTN SAVE RETURN ADDRESS 
3733+* 003D1C 4020 3018 7A32 3847+ MVWI 149132" $TUID SAVE TU ID FOR DISPLAY 
3734+* TO VERIFY THAT THE CAP ACCUMULATOR AND FILE CONTROL BLOCK 003D22 4424 3012 3848+ MVA OPT NT. RG SET UP POINTER ADRS IN RG 
3735+* CAN BE WRITTEN/READ. 003D26 6803 339C 3849+ BAL $CONC, R6 CLEAR DEV DEP STG AND CONNECT I/O BL 
3736+* 003D2A 33D0 3850+ DC A ($ERR$) ERROR ADRS FOR INVALID PREP 
3737+* CALLING SEQUENCE 3851+* 
3738+* 003D2C C825 18C8 3852 MVWZ TURESUL,RO CLEAR RESULTS AREA 
3739+* EXECUTE COMMANDS IN SINGLE INSTRUCTION MODE. 3853 * 
3740+* READ FCB O WORD O. 003D30 4020 338E 0049 3854 MVWI x "00491, ITOMOD LOAD DIAG WD 2 IDCB MODIFIER 
3741+* PASS DATA WORD READ FROM FCB O WORD O TO TO TURESULS. 003D36 4020 338C OAO08 3855 MVWI "OA08! ,TODCB SET CAP TO DIAG INSTR & CNTRL MODE 
37424+* 003D3C 65603 3214 3856 BAL SHRTO R6 WRITE CAP DIAGNOSTIC WORD 2 
3743+* MDI=$TUXX, 'T7A31,02, 8000, OF! 003D40 33D0 3857 DC A (SERR$) ABORT TEST IF I/O ERROR 
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I7A10 --- COMMON ADAPTER MAP P/N=8327650 EC=375222 PAGE 15 I7A10 --- COMMON ADAPTER MAP P/N=8327650 EC=375222 PAGE 15A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
003D42 4C21 3858 TBT ARe ER) TEST FOR ERROR QOO3E2C CA24 3F24 3972 CW LCMM3,R2 HAVE ALL COMMANDS BEEN EXECUTED? 
OO3D44 1228 eee . JON 32ER EXIT IF ON O0O03E30 18EF 234% ‘ JNE INST3 NO - GO EXECUTE NEXT COMMAND 
003D46 6818 189A 3861 MVW TUPARM1*, RO GET NO. OF COMMANDS IN TABLE 003E32 4020 338E GOU4UF 3975 MVWI X*'OO4Ft,IOMOD LOAD CAP RESET IDCB MODIFIER 
OO3D4A 6A08 189C 3862 MVW TUPARM2, R2 GET ADDR OF COMMAND TABLE 003E38 6E03 3214 3976 BAL SWRTO R6 RESET CAP CONTROLS 
OO3D4E 3009 3863 SLL 1,R0 COMPUTE ADDRESS OF LAST ENTRY QOO3E3C 33D0 3977 DC A (SERR$) ABORT TEST IF I/O ERROR 
003D50 7208 3864 AW R2,RO * OF COMMANDS IN TABLE OO3E3E 4C21 3978 TBT (R4, ER) TEST FOR ERROR 
003D52 680D 3DCE 3865 MVW RO,LCMM2 SAVE IT Q03E40 1001 3979 JOFF *+44 BYPASS ERROR CHECK 
003D56 C890 3866 INST2 MVYW (R2) +,R0 GET COMMAND TO XEQ IN SINGLE MODE OO03E42 9E3F 3980 JAL T33ER,R6 FXIT IF ON 
003D58 700D 3867 VR RO INVERT COMMAND 3981 * 
QOO3D5A 680D 338C 3868 MVW RO, I ODCB LOAD COMMAND IN 2ND WORD OF IDCB OO3Z3E44 4020 30EA 2013 3982 MVWI X*2013!,RDDCB LOAD READ FCB CONTROL WORD 
OO3D5E 4020 338E 0048 3869 MVWI x'60488 IOMOD LOAD WRITE DIAG WD 1 IDCB MODIFIER OOZ3E4A 4020 30F0Q 0001 3983 MVWI 1,RDDCB+t+6 SETUP DCB TO RD DATA BUFFER 1 
003D64 6E03 3214 3870 BAL SWRTO R6 WRITE DIAG WORD 1 Q0O03E50 4020 30F6 0100 3984 MVWI 256, RDDCBt12 SET BYTE COUNT 
003D68 33D0 3871 DC A (SERR$) ABORT TEST IF I/O ERROR 003E56 6E03 31B2 3985 BAL SRD, R6 READ DATA BUFFER 1 
OO3D6A 4C21 3872 TBT a ER) TEST FOR ERROR OO3E5A 33D0 3986 DC A SERRS) ABORT TEST IF I/O ERROR 
Q0O03D6C 1214 3873 JON 326R EXIT IF ON QOO3E5C 4C21 3987 TBE (R4, ER) TEST FOR ERROR 
OO3D6E 9E17 3874 JAL WRTS2,R6 WAIT FOR CONTROLLER CYCLE COMPLETE QOO03E5E 1001 3988 JOFF *+4 BYPASS ERROR CHECK 
003D70 CA24 3DCE 3875 CW LCMM2,R2 KRAVE ALL COMMANDS BEEN EXECUTED? OO3E60 9830 3989 JAL T33ER,R6 FXIT IF ON 
003D74 18F0 3876 JNE INST2 NO - GO EXECUTE NEXT COMMAND OO03E62 9028 38BA 18C8 3990 MVD RDBUF, TURESUL SAVE FIRST 4 WORDS OF DATA 
3877 * OO03E68 9028 38BE 18CC 3991 MVD RDBUF+4, TURESUL+t4 * BUFFER 1 
003D76 4020 338C FFFF 3878 MVWI X'FFFFt',IODCB LOAD 2ND WORD OF IDCB 3992 * 
003D7C 4020 338F 0048 3879 MVWI xX'OO4U8!,IOMOD LOAD WRITE DIAG WD 1 IDCB MODIFIER QO3E6E 4020 338E 0049 3993 MVWI xX*'OO49', TOMOD LOAD DIAG WD 2 IDCB MODIFIER 
003D82 6E03 3214 3880 BAL "SWRTO,R WRITE DIAGNOSTIC WORD 1 OO3E74 4020 338C 0008 3994 MVWI x*0008!,IODCB SET CAP TO DIAG INSTR & CNTRL MODE 
003D86 33D0 3881 DC A (SERRS) ABORT TEST IF I/O ERROR OO3E7A 6E03 3214 3995 BAL SWRITO R6 WRITE CAP DIAGNOSTIC WORD 2 
003D88 4C21 3882 TBT A 4,ER) TEST FOR ERROR OO3E7E 33D0 3996 DC A (SERRS) ABORT TEST IF I/O ERROR 
0O03D8A 1205 3883 JON 326R EXIT IF ON 003E80 4C21 3997 FBT (R4, ER) TEST FOR ERROR 
003D8C 9EDN8 3884 JAL WRTS2,R6 WAIT FOR CONTROLLER CYCLE COMPLETE 0O03E82 1001 3998 JOFF *+4 BYPASS ERROR CHECK 
3885 * OO3E84 9EIE 3999 JAL T33ER,R6 EXIT IF ON 
003D8E 4020 18C8 0000 3886 T7A2E MVWI xX'0000!,TURESUL SET GOOD 'TURESULS'* 003E86 4020 338C FFFF 4000 MVWI X'FFFE!, TODCB LOAD 2ND WORD OF IDCB 
003D94 5002 3887 J T327EX OO3E8C 4020 338E 0048 4001 MVWI xX*0O0048*,IOMOD LOAD WRITE DIAG WD 1 IDCB MODIFIER 
003D96 6802 33D0 3888 T32ER B SERR$S$ ABORT IF ERROR Q0O03E92 6E03 3214 4OO2 BAL SWRTO, R6 WRITE DIAGNOSTIC WORD 1 
3889 T32EX TxXIT Q003E96 33D0 4003 DC A ($ERR$) ABORT TEST IF I/O ERROR 
003D9A 6802 3432 3890+T32EX B $CONX RETURN TO MDI CONTROLLER 003E98 4¢21 4004 TRT (R4, ER) TEST FOR ERROR 
389 1+ 8K IORI RG IO II I RO a IR RI aK a ok kak a ok fe ak ak ake ak akc ake ok QOO3E9A 1001 4005 JOFF ¥*+44 BYPASS ERROR CHECK 
3892 * OO03E9C 9E12 4006 JAL T33ER,R6 EXIT IF ON 
003D9E 6E0D 3DCC 3893 WRTS2 MVW R6, RETR2+2 SAVE RETURN ADDRESS JO3ZE9E 9E29 4007 JAL WRTS3,R6 WAIT FOR CONTROLLER CYCLE COMPLETE 
OO3DA2 4020 338C OAOE 3894 MVWI X*OAOE',IODCB LOAD 2ND WORD OF IDCB 4008 * 
OO3DA8 4020 338E 0049 3895 MVWI xX'0O049',IOMOD LOAD WRITE DIAG WD 2 IDCB MODIFIER OO3EAO0 4020 338E 0049 4009 T7ER3 MVWI xX'O0O49*,IOMOD LOAD DIAG WD 2 IDCB MODIFIER 
OO3DAE 6803 3214 3896 BAL $WRTO,RG WRITE DIAGNOSTIC WORD 2 OO3EA6 4020 338C 0000 4010 MVWI xX'0O000',IODCB SET CAP TO ACTIVE MODE 
OO03DB2 33D0 3897 DC A (SERR$) ABORT TEST IF I/O ERROR QOO3EAC 6E03 3214 4011 BAL SWRTO R6 WRITE CAP DIAGNOSTIC WORD 2 
OO3DB4 4C21 3898 TBT AeA ER) TEST FOR ERROR QOO3EBO 33D0 4Q12 DC A (SERRS) ABORT TEST IF I/O ERROR 
O003DB6 12EF 3899 JON 32ER EXIT IF ON OO3EB2 4C21 4013 TB (R4,ER) TEST FOR ERROR 
0O03DB8 4020 30EA 2089 3900 MVWI X'2089',RDDCB LOAD READ DIAG WD 2 DCB CNTL WD OO3EBY4 1001 4014 JOFF *+4 BYPASS ERROR CHECK 
OO3DBE 4020 _30F6 0002 3901 MVWI 2,RDDCB+12 LOAD BYTE COUNT QOO3EB6 9E05 4015 JAL T33ER,R6 EXIT IF ON 
003DC4 4020 30F8 38BA 3902 VA RDBUF, RDDCB+ 14 LOAD ADDRESS OF DATA BUFFER OO3EB8 4024 OOFF 4016 MVWI X'OOFF' RO DELAY LOOP 
3903 *CC2 BAL SDGRD, R6 READ DIAGNOSTIC WORD 2 QO3EBC 6003 4017 T33LP SVC IDLES * 
3904 * DC A (SERRS) ABORT TEST IF I/O ERROR QO3EBE B8FE 4018 JCT T33LP,R0 * 
3905 * TBT Ae ER) JEST FOR ERROR OO3ZECO 5016 4019 J T33EX 
3906 * JON 32ER EXIT IF ON QOO3EC2 6E0OD 3EE6 4020 T33ER MVW R6,TA33t+2 SAVE RETURN ADDRESS 
3907 * TWI X'0010',RDBUF CHECK FOR ‘CONTRLLR CYCLE COMPLETE! OO0O3EC6 6E03 328C 4021 BAL xtOcs R6 GET CYCLE STEAL STATUS 
3908 * JOFF WCC2 WAIT TILL 'CONTRLLR CYCL OO3ECA 33D0 4022 DC A(SERRS) ABORT TEST IF ERROR 
OO3DCA 6802 0000 3909 RETR2 B KK RETURN TO CALLER QOO3ECC 4C21 4023 TBT A ER) EXCEPTION INTR OCCUR? 
3910 QOO3ECE 120C 4O24 JON A33A YES ~ SET CSS INTR ERROR BIT ON 
OO3DCE 0000 3911 LCMM2 DC A (*-*) ADDR OF LAST CMD IN TABLE OO3ENO0 9028 3040 18CA 4025 MVD CSTL5, TURESUL+2 MOVE CS STATUS WDS 4 & 5 IN TU BUF 
3912 COPY T7A33 O6JUN78 OO3ED6 8028 3051 18CE 4026 MVB CST13+1,TURESUL+t6 MOVE WRAP BYTE IN TURESULS BUFFER 
3913 T7A33 TUIT OO3EDC 402B 3040 402A 4027 TW X*4O2A',CSTL5 CHECK IF CAP ERROR BIT ON 
39 14 428% Re I OO OK ga io i lok cigkok a totekok dak 06 FER] 6 OO3EE2 1202 4028 JON TA33A NO -—- RETURN 
3915+* OO3EE4 6802 0000 4029 TA33 B *—* RETURN 
3916+* TEST UNIT OO3EE8 4020 18C8 8888 4030 TA33A MVWI X' 8888! ,TURESUL SET RESULTS TO 88 
3917+* 4031 T33EX TXIT 
3918+* SINGLE INSTRUCTION MODE CHECK OO3EEE 6802 3432 4O324+T33EX B SCONX RETURN TO MDI CONTROLLER 
3919+ 40 33 + 8 OOK OR III GIO GR IG Gk I i io I ak kak ag got skaakae ak aka ak 
3920+* PURPOSE 4034 * 
3921+* OO3EF2 6E0D 3F22 4035 WRTS3 MVW R6, RETR3+2 SAVE RETURN ADDRESS 
3922+* TO VERIFY THAT THE CAP ACCUMULATOR AND FILE CONTROL BLOCK OO3EF6 4020 338C OQOOE 4036 MVWI X'OO0E', IODCB LOAD 2ND WORD OF IDCB 
3923+% CAN BE WRITTEN/READ. OO3EFC 4020 338E 0049 4037 MVWI xX*'0049',TOMOD LOAD WRITE DIAG WD 2 IDCB MODIFIER 
3924+% 003F02 6E03 3214 4038 BAL $WRTO,R6 WRITE DIAGNOSTIC WORD 2 
3925+* CALLING SEQUENCE 0O03F06 33D0 4039 DC A (SERR$) ABORT TEST IF I/O ERROR 
3926+* 003F08 4C21 4O40 THT (R4, ER) TEST FOR ERROR 
3927+* EXECUTE COMMANDS IN SINGLE INSTRUCTION MODE, OO3FOA 1001 “O41 JOFF *+44 BYPASS ERROR CHECK 
3928+* READ FCB O WORD 4. OO3FOC 9Y9EDA 4042 JAL T33ER,R6 EXIT IF ON 
3929+% PASS DATA WORD READ FROM FCB O WORD & TO TO TURESULS. OO3FOE 4020 30EA 2089 4043 MVWI x'*2085', RDDCB LOAD READ DIAG WD 2 DCB CNTL WD 
3930+* - OO3F14 4020 30F6 0002 “O44 MVWI 2,RDDCBt12 LOAD BYTE COUNT 
3931+* MDI=$TUXX, 'T7A33,02,8000,0F' OO3F1A 4020 30F8 38BA YO4US MVA ROBUF, RDDCB+ 14 LOAD ADDRESS OF DATA BUFFER 
3932+* " 4046 *CC3 BAL SDGRD,R6 READ DIAGNOSTIC WORD 2 
3933+* TURESUL BIT(S) 0 - 15 ..... FCB 0O WORD 4 DATA WORD “O4T] * DC A(SERRS) ABORT TEST IF I/0 ERROR 
3934+* : 16. = 79 cose DATA BUFFER 1 WDS 0 - HOUR * TBT A 4 ER) TEST FOR ERROR 
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COMMON ADAPTER MAP 


NAME 


R5 


R6 


R7 


SC TID 
SKDCB 
START 
SUPSTAT 
TA13 
TA13A 
TAT4 
TAI14A 
TA 18 
TA18A 
TA 33 
TA33A 
TA55 
TUMSGWTR 
TUPARM1 
TUPARM2 
TURESUL 


TURIN 


TUSTATUS 
TUWORK 


TWO2 

T18ER 
T18EX 
T18LP 
T30ER 
T30EX 
T31ER 
T31EX 
T32ER 
T32EX 
T33ER 
T33EX 
T33LP 
T7A02 
T7A08 
T7A13 
T7A14 
T7A18 


P/N=8327650 


CROSS-REFERENCE LISTING 


ATTRIBUTES AND REFERENCES 


3590 3607 3654 3663 3670 3684 
3764 3778 3788 3804 3848 3858 
39 43 3953 3968 3978 3987 3997 
REGISTER. HEX VALUE (00000005) 
1990 1991 2044 2046 2052 2054 
2074 2091 2093 2094 2096 2118 
2759 2761 2777 2784 2906 2907 
2942 2944 2993 2994 3039 3052 
3188 3192 3447 3448 3462 3465 
REGISTER. HEX VALUE (00000006) 
1992 1993 2089 2753 2773 ° 2787 
2935 2943 2946 2948 2998 3004 
3050 3172 3197 3202 3203 3260 
3276 3280 3283 3334 3346 3350 
3377 §=93378 «63435 3451 3455 3457 
3529 3536 3540 3551 3555 3556 
3571 3575 3580 3587 3588 3602 
3661 3668 3682 3686 3692 3696 
3762 3776 3780 3786 3790 3799 
3870 3874 3880 3884 3893 3896 
3966 3970 3971 3976 3980 3985 
4002 4006 4007 4011 4015 4020 
REGISTER. HEX YALUE (00000007) 
1708 1988 2045 2051 2059 ‘ 2073 
2117 2756 2760 2767 2862 2903 
3034 3043 3046 3058 3061 3121 
3432 3446 3463 3467 3526 3652 
ADDRESS. HEX LOCATION (09003020) IN 
1856 1933 1989 2044 2047 2072 
>ADDRESS. HEX LOCATION (000030AA) IN 
ABSOLUTE. HEX VALUE(0000000A) 
ziRDRESS. HEX LOCATION (000019C4) IN 
ADDRESS. HEX LOCATION (000037A8) IN 
3377 3387 338 
ABBRESS. HEX LOCATION (000037AC) IN 
ADDRESS. HEX LOCATION(00003A72) IN 
3480 3490 3491 
ghRRRESS. HEX LOCATION (00003A76) IN 
ADDRESS. HEX LOCATION (00003B56) IN 
ADDRESS. HEX LOCATION(00003B5A) IN 
3583 3591 3595 
pADDRESS. HEX LOCATION (QOOOO3EE4) IN 
ADDRESS. HEX LOCATION (OOO003EE8) IN 
4024 4028 
ADBRESS. HEX LOCATION (00003650) IN 
gADRRESS. HEX LOCATION (000018BA) IN 
ADDRESS. HEX LOCATION (0000189A) IN 
3177 3263 3542 3673 3767 3861 
ADDRESS. HEX LOCATION (0000189C) IN 
3543 3674 3768 3862 3958 
ADDRESS. HEX LOCATION (000018C8) IN 
3125 3126 3175 3193 3194 3207 
3288 3289 3292 3337 3338 3339 
3382 3383 3438 3439 3440 3445 
3486 3532 3584 3592 3593 3597 
3792 3852 3886 3947 3990 3991 
ADDRESS. HEX LOCATION (00003058) IN 
3063 3121 3169 3257 3331 3432 
3846 3941 
za BoRESS- HEX LOCATION (00001818) IN 
ADDRESS. HEX LOCATION(0000181A) IN 
3036 3037 3038 3040 3096 3263 
3285 3286 3287 3288 3289 3290 
3 ADDRESS. HEX LOCATION (00003A84) IN 
ADDRESS. HEX LOCATION(00003B34) IN 
3540 3555 3566 3575 3609 
gh QDRESS. HEX LOCATION (00003B60) IN 
3RDRRESS. HEX LOCATION(00003B1E) IN 
ADDRESS. HEX LOCATION (00003C26) IN 
3664 3671 3685 3695 3711 
gh RBRESS. HEX LOCATION (00003C2A) IN 
ADDRESS. HEX LOCATION(OOQO3CDE) IN 
3765 3779 3789 3805 
gh DRRESS. HEX LOCATION (00003CE2) IN 
ADDRESS. HEX LOCATION (00003D96) IN 
3859 3873 3883 3899 
ADDRESS. HEX LOCATION (00003D9A) IN 
ADDRESS. HEX LOCATION (00003EC2) H 
3955 3970 3980 3989 3999 4006 
pADBRESS. HEX LOCATION (00003 EEE) 
ADDRESS. HEX LOCATION (O0O03EBC) IN 
ADDRESS. HEX LOCATION (00003062) IN 
ADDRESS. HEX LOCATION (0000365C) IN 
ADDRESS. HEX LOCATION (000036F2) IN 
ADDRESS. HEX LOCATION(000039BA) IN 
ADDRESS. HEX LOCATION (00003A86) I 
773 =©791 809 827 #845 91 
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3355 3359 
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LENGTH (2) 
LENGTH (2) 


LENGTH (1) 
LENGTH (4) 
LENGTH (6) 
LENGTH (4) 
LENGTH (6) 
LENGTH (4) 
LENGTH (6) 
LENGTH (4) 
LENGTH (6) 
LENGTH (4) 
LENGTH (1) 
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LENGTH (2) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
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3652 
3752 


3846 
3941 
3131 
3121 
3169 
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3218 
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3294 
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3393 
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COMMON ADAPTER MAP P/N=8327650 EC=375222 PAGE 19 
CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
ATTRIBUTES AND REFERENCES 
ADDRESS. HEX LOCATION (00003898) IN CSECT(I7A10 ) LENGTH (4) 
945 1037 1111 1185 1259 1375 1389 1463 1477 
ADDRESS. HEX LOCATION (00003C60) IN CSECT(I7A10 ) LENGTH(4) 
863 959 987 1051 1079 1125 1153 1199 2 
1403. 1431 1491 1519 
ADDRESS. HEX LOCATION (00003D18) IN CSECT(I7A10 ) LENGTH (4) 
1273 1301 1315 1343 
ADDRESS. HEX LOCATION (00003DD0) IN CSECT(I7A10 ) LENGTH(4) 
1001 1093 1167 1241. 1357 
ghDBRESS. HEX LOCATION (000035C6) IN CSECT(I7A10 ) LENGTH(4) 
ADDRESS. HEX LOCATION (00003546) IN CSECT(I7A10 ) LENGTH(4) 
ADDRESS. HEX LOCATION (000035CA IN CSECT (T7A10 ) LENGTH (4) 
755 877 909 927 973 1065 1139 1213 87 
1329 1417 1505 
ADDRESS. HEX LOCATION (00003610) IN CSECT(I7A10 ) LENGTH (2) 
ADDRESS. HEX LOCATION (00003658) IN CSECT(I7A10 ) LENGTH(2) 
3178 3179 3180 3181 3182 31 
giBDRESS. HEX LOCATION (00003618) IN CSECT(I7A10 ) LENGTH (6) 
ADDRESS. HEX LOCATION (000036EE) IN CSECT(I7A10 ) LENGTH (4) 
>ADDRESS. HEX LOCATION (000030DA) IN CSECT(I7A10  ) LENGTH(2) 
ADDRESS, | HEX LOCATION (00003786) IN CSECT(I7A10  ) LENGTH(4) 
ADDRESS. HEX LOCATION (000030FA) IN CSECT(I7A10 ) LENGTH(2) 
ADDRESS. HEX LOCATION(000037BA) IN CSECT(I7A10 ) LENGTH(2) 
3441 3447 3449 3450 3462 
ADDRESS. HEX LOCATION(000030CA) IN CSECT(I7A10 ) LENGTH(2) 
2067 2113 3441 3442 3443 
5 ABSOLUTE. HEX VALUE (00000010) 
>ABSOLUTE. HEX VALUE (00000011) 
ADDRESS. HEX LOCATION (00003138) IN CSECT(I7A10  ) LENGTH(2) 
1845 1922 1990 2079 2083 
ADDRESS. HEX LOCATION (00003B64) IN CSECT(I7A10 ) LENGTH (4) 
ADDRESS. HEX LOCATION (00003C2E) IN CSECT(I7A10 ) LENGTH(4) 
ADRESS. HEX LOCATION (00003CE6) IN CSECT(I7A10 ) LENGTH(4) 
jADDRESS. HEX LOCATION (00003D9E) IN CSECT(I7A10 ) LENGTH(4) 
ghbDRESS. HEX LOCATION (OOO03EF2) IN CSECT(I7A10 ) LENGTH(4) 
ADDRESS. HEX LOCATION (0000308A) IN CSECT(I7A10 ) LENGTH(2) 
ABSOLUTE. HEX VALUE(00000024) 
2865 2927 
ABSOLUTE. HEX VALUE (00000022) 
2101 2769 2912 
ADDRESS. HEX LOCATION (00003278) IN CSECT (I7A10 ) LENGTH (4) 
2037 2040 2048 2055 2062 65 2068 2076 2080 
jADBRESS. HEX LOCATION (0000334E) IN CSECT(I7A10 ) LENGTH(2) 
>ABDRESS. HEX LOCATION (00003360) IN CSECT(I7A10 ) LENGTH (2) 
oADDRESS. HEX LOCATION (00003376) IN CSECT(I7A10 ) LENGTH(4) 
ADDRESS. HEX LOCATION (0000328C) 1 IN CSECT (I7A10 ac) LENGTH (6) 
2945 3293 3264 3272 3283 78 3457 3481 80 
ADDRESS. HEX LOCATION (00003364) IN CSECT(I7A10  ) LENGTH(2) 
ADDRESS. HEX LOCATION (00003382) IN CSECT(I7A10 ) LENGTH (4) 
oADDRESS, HEX LOCATION (00003280) IN CSECT(I7A10 ) LENGTH (6) 
5 ADDRESS. X LOCATION(000032EC) IN CSECT(I7A10 ) LENGTH(2) 
 SADDRESS, HEX LOCATION (0000329C) IN CSECT(I7A10 ) LENGTH(4) 
jADDRESS. HEX LOCATION (000032C2) IN CSECT(I7A10 ) LENGTH(2) 
ADDRESS. HEX _LOCATION(000032D8) IN CSECT(I7A10 ) LENGTH(2) 
2109 2111 2785 
ABSOLUTE. HEX VALUE (90000901) 
685 715 751 769 787 ° 805 823 #4841 °&#859 
905 923 941 1027 1033 1107 1181 1255 1371 
1459 = 1547 = 1553 
ADDRESS. HEX LOCATION (00003776) IN CSECT(I7A10 ) LENGTH(4) 
3375 3376 3390 
ADDRESS. HEX LOCATION (00003A38) IN CSECT(I7A10 ) LENGTH (4) 
3478 3479 3493 
ADDRESS, HEX LOCATION (00003628) IN CSECT(I7A10 ) LENGTH(4) 
3196 3210 3214 
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